Re: Running a module?

#!/bin/sh

eval "exec /opt/perl/bin/perl -I`dirname $0` -M`basename $0 .pm` -e ma
+in $*"
    if $running_under_some_shell;

package main;

sub main {
    print "Hello from main\n";
}

1;
[download]

That seems to work for me.

Abigail

Comment on Re: Running a module? Download Code

Replies are listed 'Best First'.
Re: Re: Running a module? by bschmer (Friar) on Sep 19, 2003 at 15:11 UTC
Duh, must have too much water on the brain. Now if I could just get perl to load a module that doesn't end in .pm life would be perfect.	[reply]
Re: Re: Re: Running a module? by BUU (Prior) on Sep 19, 2003 at 18:27 UTC
`BEGIN{ require "Foo.baz"; Foo->import(); }` [download]	[reply] [d/l]
Re: Running a module? by Abigail-II (Bishop) on Sep 20, 2003 at 00:12 UTC
#!/bin/sh eval "exec /opt/perl/bin/perl -I`dirname $0` -e 'require q!base!; main + ()' $*" if $running_under_some_shell; package main; sub main { print "Hello from main\n"; } 1; [download] Abigail	[reply] [d/l]