戯術者の日記

perldoc -m Dir::Module

sub func {
  require Path::Module;
  import Path::Module;
}

use NetAddr::IP ;
 
my $ip = new NetAddr::IP "192.168.175.4/255.255.255.128" ;
 
print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ;
print "nw    is ", $ip->network,     "\n" ;
print "bc    is ", $ip->broadcast,   "\n" ;
print "range is ", $ip->range,       "\n" ;
print "first is ", $ip->first->addr, "\n" ;
print "last  is ", $ip->last->addr,  "\n" ;
print "mask  is ", $ip->masklen,     "\n" ;
print "num   is ", $ip->num,         "\n" ;

$ perl Makefile.PL prefix=/path/to
(うまくいかないなら perl Makefile.PL lib=/path/to かも)
$ make
$ make test
$ make install

my $hoge = $query->param('hoge');

$SIG{CHLD} = 'IGNORE';

open(F, "| cat");
print F "hogehoge\n";
close(F);

GetOptions("option:s" => \@array);

$ ./prog.pl --option foo --option bar --option baz

miyazaki@nwmail:~/work$ cat -n pick.pl
     1  #!/usr/bin/perl
     2
     3  @list = <imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control>;
     4
     5  print "hoge\n";
miyazaki@nwmail:~/work$ ./pick.pl
glob failed (child exited with status 1) at ./pick.pl line 3.
hoge
miyazaki@nwmail:~/work$ /usr/bin/csh
nwmail:~/work% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control
引数が長すぎます。
nwmail:~/work% echo $status
1
nwmail:~/work% setenv LANG C
nwmail:~/work% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control
Arguments too long
nwmail:~/work% echo $status
1
nwmail:~/work% /usr/local/bin/tcsh
nwmail:~% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control
^C
nwmail:~% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control | wc -l
     1
nwmail:~% echo imail/queue/deferred/SMTP-Deliver/*/*/*/*-Control | more
imail/queue/deferred/SMTP-Deliver/0/aaa0example.org/0/22518.9208984375-Control ...
(1行で出力されるよん)

use FindBin qw($Bin);
use lib $Bin;

use File::Find;
find(\&wanted, $dir);
sub wanted {
  print "$File::Find::name\n" if -x $_;
}

use File::Find;
find(sub { push @files, $File::Find::name if -f }, $dir);

perl -ne 'foreach (split(//)) { printf("0x%X\n", ord $_) }' < jis.txt

@list = glob <\\!*>;

utime atime_epoch, ctime_epoch, @filelist;

#!/usr/bin/perl
open(FILE, $ARGV[0]);
for (;;) {
  for ($curpos = tell(FILE); $_ = <FILE>; $curpos = tell(FILE)) {
    print;
  }
  select undef, undef, undef, 0.5;
  seek(FILE, $curpos, 0);
}