Lib?

Perl & Ruby

6 svar · 176 visningar · startad av nordan 30 okt. 2000

nordanMedlem sedan juni 2000949 inlägg

Trådstart30 okt. 2000 08:45#1

Tjena om man gör ett bibliotek med
lite perl kod typ så här>>

sub test{
print "TJENA BENGAN!";
}

Och döper den till test.lib
Och vill ha in detta i ett annat perl program.
så skall man ju skriva typ såhär va?

#!/usr/bin/perl
require "test.lib";
print "Content-type: text/html\n\n";
print "Hejsan";
&test;
exit;

#Jag kan ha stavat fel på require men inte i det programmet jag har hemma.

Vad jag har förståt så skall detta vara rätt men när jag gör detta hemma så funkar detta inte??
Tar jag istället exempelfilen som finns med så funkar det utmärkt med att göra nya subrutiner som man kan lägga in??
Vad är det som saknas??

//
nordan

Peter_BMedlem sedan apr. 2000642 inlägg

30 okt. 2000 10:18#2

kanske rättigheterna på filerna inte är rätt? prova sätt 755 på dom och prova igen

Gislaved.netMedlem sedan juni 20001 521 inlägg

30 okt. 2000 10:27#3

Lägg till
1;
i sluten av test.lib så att den returnerar "true".

nordanMedlem sedan juni 2000949 inlägg

30 okt. 2000 12:11#4

Rättigheterna har jag testat så det skall inte vara det felet
Skall man bara skriva 1;
så funkar det ??
Tyvärr sitter jag just nu inte vid en dator som jag kan testa detta vid
Vad är det 1; ??

Tack för hjälpen

//
nordan

JojoxxMedlem sedan juni 20004 308 inlägg

30 okt. 2000 13:58#5

Vad är det 1; ??

En förkortning för:

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
return 1;
</font>

För att alltså mobulen skall returnera true. Annars ses det inte som en giltig modul av perl.

nordanMedlem sedan juni 2000949 inlägg

31 okt. 2000 08:22#6

Hejsan alla hjälpsamma människor
Tack för hjälpen!!
Det funka utmärkt!
Kan man gämnföra
1; men Tex
Om man har två radio knappar som kör olika subrutiner.
typ.
if($val = "ett"){
&ett;
}
if($val = "tva"){
&tva;
}
sub ett{
print "Hej ett";
}
sub tva{
print "Hej tva";
}

Oki jag skriver inte ut allt innan men det skall väll gå att förstå iaf

Nu är det så att perlprogramet bara körs om någon av dom radioknapparna är iklickad.
Om man nu inte klickar i någon av dom så kommer det ju ett medelade att documen coins no data.
Är det typ samma sak som 1; eller??

//
nordan

JojoxxMedlem sedan juni 20004 308 inlägg

2 nov. 2000 13:45#7

Typ så här;

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">

use CGI;
print "Content-type: plain/text\n\n";
if(CGI::param('radioknappsnamn') eq 'ett') {
&ett;
} elsif(CGI::param('radioknappsnamn') eq 'tva') {
&tva;
} else {
print "Du har inte gjort något val";
}
sub ett {
print "Hej ett";
}
sub tva {
print "Hej tva";
}

</font>