perl練習問題を作れやｺﾞﾙｧ

[0001 nobodyさん 02/08/03 15:41 ID:FIT1PnL8]

初心者に課題として出す練習問題を作れやｺﾞﾙｧ

[0003 nobodyさん 02/08/03 16:21 ID:???]

以下、>>1の自作自演が続きます。

[0004 nobodyさん 02/08/03 18:52 ID:JdEcAfSf]

テキストの圧縮

[0005 nobodyさん 02/08/03 18:56 ID:???]

system("gzip $foo");

[0006 nobodyさん 02/08/03 18:56 ID:???]

はい死ね

[0007 nobodyさん 02/08/03 20:28 ID:???]

close();
exit;
die;
print "〜終了〜";

[0008 3PIO ◆3pIoOHKo 02/08/04 15:05 ID:???]

unlink("FIT1PnL8");

[0009 nobodyさん 02/08/04 22:21 ID:???]

die ">>1は今死にました";

__END__

[0010 nobodyさん 02/08/05 19:43 ID:???]

問題　何回1を頃すでしょう

while(1){
kill >>1;
}

[0011 nobody 02/08/05 20:57 ID:???]

aaaaaaaaaaa:
KILL >>1
GOTO aaaaaaaaaaa

[0012 nobodyさん 02/08/06 23:55 ID:???]

>>2

#/usr/local/bin/perl

print "Hello world!";