Lib?

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

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

------------------
PeterSign v 2.3.36

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

------------------
Gislaved.net
"Tänk på vad du säger så att du inte säger vad du tänker."

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

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.

------------------

/ J

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 :q

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

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>

------------------

/ J