{"id":4837,"date":"2010-06-08T12:00:48","date_gmt":"2010-06-08T03:00:48","guid":{"rendered":"http:\/\/www.sssg.org\/blogs\/hiro345\/?p=4837"},"modified":"2012-11-22T02:10:10","modified_gmt":"2012-11-21T17:10:10","slug":"perl%e3%81%a7%e5%a4%96%e9%83%a8%e3%82%b3%e3%83%9e%e3%83%b3%e3%83%89%e3%82%92%e5%ae%9f%e8%a1%8c%e3%81%99%e3%82%8b%e6%96%b9%e6%b3%95","status":"publish","type":"post","link":"https:\/\/www.hiro345.net\/blogs\/hiro345\/archives\/4837.html","title":{"rendered":"Perl\u3067\u5916\u90e8\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"

Perl\u3067\u5916\u90e8\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5\u306b\u306f\u3044\u304f\u3064\u304b\u3042\u308a\u307e\u3059\u3002<\/p>\n

\u6700\u521d\u306e\u65b9\u6cd5\u306f\u3001system\u95a2\u6570\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u3059\u3002\u3053\u308c\u3092\u4f7f\u3046\u3068\u3001perl\u3067\u5b50\u30d7\u30ed\u30bb\u30b9\u3092\u8d77\u52d5\u3067\u304d\u307e\u3059\u3002\u623b\u308a\u5024\u306f\u5b50\u30d7\u30ed\u30bb\u30b9\u3092\u5b9f\u884c\u3057\u305f\u30b3\u30de\u30f3\u30c9\u306e\u7d42\u4e86\u30b9\u30c6\u30fc\u30bf\u30b9\u3068\u306a\u308a\u307e\u3059\u3002\u66f8\u5f0f\u306f\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

system "\u30b3\u30de\u30f3\u30c9";<\/div>\n

\u4f8b\uff09<\/p>\n

#!/usr/bin/perl
\nsystem "ls -1";
\nsystem "date > date.txt &";<\/div>\n

perl\u30d7\u30ed\u30bb\u30b9\u5185\u3067\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3059\u308b\u306b\u306fexec\u95a2\u6570\u3092\u4f7f\u3044\u307e\u3059\u3002\u66f8\u5f0f\u306f\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

exec "\u30b3\u30de\u30f3\u30c9";<\/div>\n

\u4f8b\uff09<\/p>\n

#!/usr/bin/perl
\nexec "ls -1";
\nexec "date > date.txt &";<\/div>\n

\u9006\u30b7\u30f3\u30b0\u30eb\u30af\u30aa\u30fc\u30c8\u3092\u5229\u7528\u3059\u308b\u4e8b\u3067\u3001\u30b3\u30de\u30f3\u30c9\u306e\u7d50\u679c\u3092\u5909\u6570\u3078\u4ee3\u5165\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30ea\u30b9\u30c8\u30b3\u30f3\u30c6\u30ad\u30b9\u30c8\u3092\u4f7f\u3046\u3068\u3001\u6539\u884c\u533a\u5207\u308a\u3055\u308c\u305f\u7d50\u679c\u304c\u30ea\u30b9\u30c8\u3078\u4ee3\u5165\u3055\u308c\u307e\u3059\u3002<\/p>\n

#!/usr/bin/perl
\nmy $result = `ls -1`;
\nprint "-------------------\n";
\nprint $result;<\/p>\n

my @resultList = `ls -1`;
\nprint "-------------------\n";
\nprint @resultList;<\/p><\/div>\n

\u30d1\u30a4\u30d7\u3068open\u3092\u7d44\u307f\u5408\u308f\u305b\u308b\u6280\u3082\u77e5\u3063\u3066\u304a\u304f\u3068\u4fbf\u5229\u3067\u3059\u3002\u30b3\u30de\u30f3\u30c9\u5b9f\u884c\u306e\u7d50\u679c\u3092\u30d1\u30a4\u30d7\u7d4c\u7531\u3067\u53d6\u5f97\u3057\u3066\u3001\u51e6\u7406\u3092\u3059\u308b\u65b9\u6cd5\u3068\u3001\u30d1\u30a4\u30d7\u3092\u958b\u3044\u3066\u3001\u30b3\u30de\u30f3\u30c9\u3078\u6587\u5b57\u5217\u3092\u6e21\u3059\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n

#!/usr/bin/perl
\nopen(FH , "ls -al | grep -v \"~\"|");
\nwhile (<FH>) {
\n  print ;
\n}
\nclose FH;<\/p>\n

print "------------------\n";<\/p>\n

open FH, ‘|grep -v "abc"’ or die "Can’t open\n";
\nprint FH ‘abc’, "\n";
\nprint FH ‘xyz’, "\n";
\nprint FH ‘stu’, "\n";
\nprint FH ‘abcdefg’, "\n";
\nclose FH;\n<\/p><\/div>\n

\u30e2\u30c0\u30f3Perl\u5165\u9580 (CodeZine BOOKS)<\/a>, Perl\u9006\u5f15\u304d\u30af\u30a4\u30c3\u30af\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9\u2015Perl5.8\u5bfe\u5fdc<\/a>, Perl\u30d5\u30ec\u30fc\u30e0\u30ef\u30fc\u30afCatalyst\u5b8c\u5168\u5165\u9580<\/a>\u3068\u3044\u3063\u305f\u66f8\u7c4d\u304c\u53c2\u8003\u306b\u306a\u308a\u307e\u3059\u3002Perl\u4ee5\u5916\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u306b\u8208\u5473\u304c\u3042\u308b\u5834\u5408\u306f\u3001\u95a2\u9023\u66f8\u7c4d\u304c\u53c2\u8003\u306b\u306a\u308b\u3067\u3057\u3087\u3046\u3002<\/p>\n

—-
\n\u95a2\u9023\u66f8\u7c4d<\/p>\n