Slide 1
Slide 1 text
ϦμΠϨΫτͱ
ύΠϓΛ
perl5ͰΔ
Shoichi Kaji
Slide 2
Slide 2 text
me
• Shoichi Kaji
• cpan module
• cpm
• App::RemoteCommand
• App::FatPacker::Simple
Slide 3
Slide 3 text
cmd > file.txt
cmd1 | cmd2
Slide 4
Slide 4 text
ϦμΠϨΫτͱύΠϓΛperl5Ͱ
• ͳͥʁ
• perl5Α͘better shellͱݺΕΔɻ
ΑͬͯshellͰͰ͖Δ͜ͱΛperl5ͰͰ͖ΔΑ͏ʹ͠
͓͖͍ͯͨɻ
• perl5ͷεϨου͑ͳ͍ɻฒྻԽ͍ͨ͠ͱ͖
forkʹΑͬͯෳϓϩηεΛ্ཱͪ͛Δͷ͕ී௨ɻ
ͦͷͱ͖IPCͷҰखஈͱͯ͠pipeΛ͓͖͍ͬͯͨɻ
Slide 5
Slide 5 text
࣍
• cmd1 > file.txt
• cmd1 | cmd2
• ࣮ફྫ
• further reading
Slide 6
Slide 6 text
>
# me > file.txt
open STDOUT, ">", "file.txt" or die $!;
# me 2> file.txt
open STDERR, ">", "file.txt" or die $!;
# me < file.txt
open STDIN, "<", "file.txt" or die $!;
# me >> file.txt
open STDOUT, ">>", "file.txt" or die $!;
ϑΝΠϧʹϦμΠϨΫτ͢Δʹ
طଘϑΝΠϧϋϯυϧΛ͏Ұopen͢Δ
Slide 7
Slide 7 text
>&
# me 2>&1
open STDERR, ">&", \*STDOUT;
# me > file.txt 2>&1
open STDOUT, ">", "file.txt" or die $!;
open STDERR, ">&", \*STDOUT;
͋ΔϑΝΠϧϋϯυϧʹϦμΠϨΫτ͢Δʹ
طଘϑΝΠϧϋϯυϧΛ“&”ͱͱʹopen͢Δ
Slide 8
Slide 8 text
ex
open STDOUT, ">", "file.txt" or die $!;
open STDERR, ">&", \*STDOUT;
say "hello world"; # print to file.txt
warn "oops\n"; # print to file.txt too
Slide 9
Slide 9 text
pipe
pipe my $read, my $write;
$read
$write
process
Slide 10
Slide 10 text
pipe
$read
$write
ࢠprocess
$read
$write
process
fork
Slide 11
Slide 11 text
|
# ls -al | me
pipe my $read, my $write;
my $pid = fork // die $!;
if ($pid == 0) {
# ls -al
close $read;
open STDOUT, ">&", $write;
exec "ls", "-al";
exit 255;
} else {
# me
close $write;
my @got = <$read>;
warn "got: $_" for @got;
waitpid $pid, 0;
close $read;
}
# me | wc -l
pipe my $read, my $write;
my $pid = fork // die $!;
if ($pid == 0) {
# wc -l
close $write;
open STDIN, "<&", $read;
exec "wc", "-l";
exit 255;
} else {
# me
close $read;
say {$write} "line1";
say {$write} "line2";
close $write;
waitpid $pid, 0;
}
Slide 12
Slide 12 text
No content
Slide 13
Slide 13 text
|-
# me | wc -l
open my $fh, "|-", "wc", "-l" or die $!;
say {$fh} "line1";
say {$fh} "line2";
close $fh; # automatically call wait()
# ls -al | me
open my $fh, "-|", "ls", "-al" or die $!;
my @got = <$fh>;
close $fh; # automatically call wait()
warn "got: $_" for @got;
Slide 14
Slide 14 text
No content
Slide 15
Slide 15 text
࣮ફྫ
Slide 16
Slide 16 text
system, qx//
• system, qx//shellΛىಈ͢ΔՄೳੑ͕͋Δɻ
• ͳΔ͘ආ͚Δ͖͕ͩɺshellͷه๏͕ϥΫͰ
Α͔ͭͬͯ͘͠·͏ɻͦ͜Λ…
$ perl -e 'system "sleep infinity >/dev/null"' &
$ ps f
PID TTY STAT TIME COMMAND
11016 pts/3 Ss 0:00 -zsh
11289 pts/3 SN 0:00 \_ perl -e system "sleep infinity >/dev/null"
11333 pts/3 SN 0:00 | \_ sh -c sleep infinity >/dev/null
11334 pts/3 SN 0:00 | \_ sleep infinity
Slide 17
Slide 17 text
system, qx//
# ͜͏Ͱͳ͘...
system "git clone git://github.com/git/git.git >/dev/null 2>&1";
# ͜͏
my $pid = fork // die $!;
if ($pid == 0) {
open STDOUT, ">", "/dev/null";
open STDERR, ">&", \*STDOUT;
exec "git", "clone", "git://github.com/git/git.git";
}
waitpid $pid, 0;
Slide 18
Slide 18 text
pipe with select
use IO::Select;
use POSIX 'strftime';
STDOUT->autoflush(1);
my @cmd = ("perl", "-E",
'$|++; for (1..10) { say "$$: $_"; sleep int(rand 5); }’);
# @cmdͷग़ྗΛ͖ͨͷ͔Β࣌ࠁΛઌ಄ʹ͚ͭͯग़ྗ
open my $fh0, "-|", @cmd or die $!;
open my $fh1, "-|", @cmd or die $!;
my $select = IO::Select->new($fh0, $fh1);
while (1) {
last if $select->count == 0;
my @ready = $select->can_read(1);
for my $fh (@ready) {
my $line = <$fh>;
defined $line or do { $select->remove($fh); next };
my $time = strftime("%F %T", localtime);
print "$time: $line";
}
}
close $_ for $fh0, $fh1;
Slide 19
Slide 19 text
further reading
• ྫղUnixϓϩάϥϛϯάڭࣨ,
Ӭਓ, ݖ౻ࠀ, 2007
• perldoc -f open
• Unix Programming with Perl 2, kazuho oku,
http://www.slideshare.net/kazuho/unix-
programming-with-perl-2
Slide 20
Slide 20 text
further reading
• App::cpm (me)
• Proclet (kazeburo)
• Server::Starter (kazuho)
• System::Command (book)
• Daemon::Control (symkat)