add
unless (open(GLIMPSE, "-|")) {
 ftp.pl |
add
use Net::FTP;
$my_user='joe';
$my_pass='';
$ftp = Net::FTP->new("www.jrf.com") or die;
$ftp->login($my_user, $my_pass) or die;
|
gmtime.perl |
add
#!/usr/bin/perl
sender.perl |
add
#!/usr/bin/perl
sig_handler.txt |
add
#!/usr/bin/perl
$SIG{INT}=\&sig_handler;
sub sig_handler {
my $signal = shift;
die "I got signal $signal";
|
stdin_out.txt |
add
#!/usr/bin/perl
$cmd = 'cat uni2.pl';
@all = `($cmd | sed -e 's/^/stdout: /' ) 2>&1`;
for (@all) { push @{ s/stdout: // ? \@outlines : \@errlines }, $_ }
print "STDOUT:\n", @outlines, "\n";
|
threads1.perl |
not able to store a ref in a shared var
#!/usr/bin/perl
time.perl |
add
#!/usr/bin/perl
timestampl.perl |
add
#!/usr/bin/perl
timestampl2.perl |
add
#!/usr/bin/perl
timestampl3.perl |
add
#!/usr/bin/perl
--->upload your article
|
User submitted category site links |
|
(None) |
-->submit a page from your site dealing with unix_perl to the sirfsup! web directory for listing | | | | | | | | |
bidir