Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新

---

476: 2019/06/24(月)04:43 ID:4+LiJo6+(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
476: [sage] 2019/06/24(月) 04:43:33.88 ID:4+LiJo6+ 自分が昔質問したことにたいして今なら回答できる <> は <STDIN> の単なる略ではなく @ARGV が捕れない副作用があった そこに詰まっていた #!/usr/bin/env perl use 5.010; if (-p STDIN) { print "May be pipe is used. I've got STDIN as below\n"; # my @lines = <STDIN>; # when <> used, perl think no @ARGV map {state $i; ++$i;print "$i $_" } <STDIN>; } else { print "This may be just single running.\n"; } map {state $i; ++$i; print "$i argment found ==> $_\n"} @ARGV; http://mevius.5ch.net/test/read.cgi/tech/1349538519/476
自分が昔質問したことにたいして今なら回答できる は の単なる略ではなく が捕れない副作用があった そこに詰まっていた

---

上下前次1-新書関写板覧索設栞歴

---

あと 47 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.017s