Perl one liner 鐃緒申 perl 1鐃緒申鐃緒申郎

<!drk7jp_parse_scope>

* Perl one liner 鐃緒申 perl 1鐃緒申鐃緒申郎

鐃緒申鐃塾居申鐃緒申鐃緒申直鐃緒申鐃�URL: Permlink | 鐃緒申鐃塾居申鐃緒申鐃緒申属鐃緒申鐃暑カ鐃銃ワ申鐃緒申: [Perl]

- one liner鐃緒申鐃緒申鐃旬醐申埜鐃緒申鐃緒申醗鐃緒申鐃緒申郎

鐃緒申鐃緒申鐃緒申鐃峻ワ申鐃緒申鐃緒申廛箸鐃緒申鐃盾し鐃緒申鐃准￥申鐃緒申鐃緒申
鐃塾はよく鐃緒申鐃夙わ申鐃銃わ申鐃緒申鐃緒申google 鐃薯いわ申鐃緒申探鐃緒申鐃銃も見鐃縦わ申鐃緒申覆鐃緒申鐃�
鐃緒申鐃緒申鐃緒申鐃淑わ申鐃塾で￥申鐃緒申鐃緒申鐃緒申転鐃旬わ申鐃銃わ申鐃緒申鐃緒申

- Internet Archive 鐃叔醐申鐃縦わ申鐃緒申鐃緒申

鐃緒申perl 鐃叔わ申鐃緒申鐃緒申鐃� 鐃夙わ申鐃緒申鐃准￥申鐃緒申鐃塾一コ鐃緒申鐃淑￥申鐃緒申鐃獣わ申鐃処う鐃緒申鐃緒申
http://web.archive.org/web/20020214191434/http://www13.cds.n ...

鐃夙わ申鐃緒申鐃叔￥申鐃淑わ申鐃� -a 鐃叔ワ申鐃竣ワ申奪箸鐃緒申譴随申竸鐃緒申悗鐃� @F[n] 鐃叔ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申?
鐃緒申鐃殉わ申鐃緒申箸鐃緒申鐃春ワ申鐃緒申鵐垢鐃緒申辰鐃緒申蠅刻申襪鰹申箸鐃緒申鐃緒申襪件申鐃緒申茲�申錣�申鐃緒申
-w 鐃緒申鐃春わ申鐃緒申函鐃�$F[n] 鐃祝わ申鐃淑わ申鐃緒申鐃緒申鐃夙醐申鐃緒申鐃暑し鐃緒申

鐃緒申標鐃緒申perl鐃緒申鐃緒申鐃叔使わ申鐃緒申1鐃緒申鐃緒申郎

[鐃瞬わ申鐃緒申鐃緒申]
鐃緒申鐃駿てわ申c鐃塾フワ申鐃緒申鐃緒申鐃緒申鐃�foo鐃緒申bar鐃緒申鐃瞬わ申鐃緒申鐃緒申鐃暑。
bak鐃叔バッワ申鐃緒申鐃獣ワ申鐃春わ申
\b鐃緒申単鐃緒申龍鐃緒申擇鐃�
perl -p -i.bak -e 's/\bfoo\b/bar/g' *.c

鐃緒申鐃曙ぞ鐃緒申離侫鐃緒申鐃緒申鐃祝含まわ申鐃緒申鐃粛わ申鐃緒申鐃巡し鐃銃ワ申鐃緒申鐃瞬わ申鐃殉わ申
bak鐃叔バッワ申鐃緒申鐃獣ワ申鐃緒申
perl -i.bak -pe 's/(\d+)/ 1 + $1 /ge' file1 file2 ....

鐃緒申鐃峻ワ申鐃緒申鐃宿わ申0D0A 鐃緒申鐃緒申 0A鐃緒申鐃術器申鐃緒申鐃殉わ申
perl -pe 's/\015\012/\012/g' file

鐃緒申鐃峻ワ申鐃緒申鐃宿わ申0A 鐃緒申鐃緒申 0D0A鐃緒申鐃術器申鐃緒申鐃殉わ申
perl -pe 's/\012/\015\012/g' file

[鐃緒申分的鐃淑種申鐃出わ申]
鐃緒申鐃准￥申鐃緒申鐃叔駈申鐃准わ申譴随申侫鐃緒申鐃緒申鐃宿の最初か鐃緒申4鐃緒申鐃旬までわ申6鐃緒申鐃旬わ申表鐃緒申
perl -lane 'print "@F[0..4] $F[6]"' file

鐃緒申鐃緒申鐃緒申廼鐃緒申擇鐃曙た鐃春ワ申鐃緒申鐃緒申匹虜能蕕�申鐃�4鐃緒申鐃旬までわ申表鐃緒申
perl -F: -lane 'print "@F[0..4]\n"' /etc/passwd

START鐃緒申END鐃祝駈申鐃殉れた鐃緒申分鐃緒申表鐃緒申
perl -ne 'print if /^START$/ .. /^END$/' file

START鐃緒申END鐃祝駈申鐃殉れた鐃緒申分鐃淑鰹申鐃緒申表鐃緒申
perl -ne 'print unless /^START$/ .. /^END$/' file

鐃叔緒申鐃�50鐃峻わ申表鐃緒申
perl -pe 'exit if $. > 50' file

鐃叔緒申鐃�10鐃峻わ申表鐃緒申鐃緒申鐃淑わ申
perl -ne 'print unless 1 .. 10' file

15 鐃緒申鐃緒申 17 鐃緒申鐃旬わ申鐃緒申鐃緒申表鐃緒申
perl -ne 'print if 15 .. 17' file

鐃銃行わ申80文鐃緒申鐃淑降わ申里討鐃�
perl -lne 'print substr($_, 0, 80) = ""' file

鐃銃行の最緒申鐃�10文鐃緒申鐃緒申里討鐃�
perl -lne 'print substr($_, 10) = ""' file

[鐃緒申鐃処いgrep]
comment鐃夙わ申鐃緒申文鐃緒申鐃藷が含まわ申討鐃緒申鐃峻わ申表鐃緒申
perl -ne 'print if /comment/' duptext
comment鐃夙わ申鐃緒申文鐃緒申鐃藷が含まわ申討鐃緒申覆鐃緒申圓鐃宿緒申鐃�
perl -ne 'print if /comment/' duptext

comment鐃殉わ申鐃緒申apple鐃夙わ申鐃緒申文鐃緒申鐃藷が含まわ申討鐃緒申鐃峻わ申表鐃緒申
perl -ne 'print if /comment/ || /apple/' duptext

comment鐃殉わ申鐃緒申apple鐃夙わ申鐃緒申文鐃緒申鐃藷が含まわ申討鐃緒申鐃峻わ申表鐃緒申
perl -ne 'print if /comment/ || /apple/' duptext

comment鐃緒申apple鐃緒申両鐃緒申鐃緒申文鐃緒申鐃藷が含まわ申討鐃緒申鐃峻わ申表鐃緒申
perl -ne 'print if /comment/ || /apple/' duptext

comment鐃夙わ申鐃緒申文鐃緒申鐃藷が含まわ申討鐃緒申鐃峻とフワ申鐃緒申鐃緒申名鐃緒申表鐃緒申
find鐃夙逸申鐃祝使わ申鐃緒申鐃緒申鐃緒申
perl -ne 'print "$ARGV:$_" if /comment/' file1 file2 file3 ...

int鐃祝わ申鐃緒申鐃緒申鐃竣わ申鐃緒申鐃�print鐃祝は逸申鐃竣わ申鐃淑わ申)grep
perl -ne 'print if /\bint\b/' test.txt

port0鐃緒申鐃緒申port9鐃殉でわ申10鐃縦わ申単鐃緒申飽鐃緒申廚鐃緒申鐃�
perl -ne 'print if /\bport\d\b/' test.txt

port0鐃緒申鐃緒申port9999鐃淑どとわ申鐃獣わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃祝つわ申単鐃緒申飽鐃緒申廚鐃緒申鐃�
perl -ne 'print if /\bport\d+\b/' test.txt

[鐃春ワ申鐃緒申鐃緒申百屬留藥�]
鐃叔緒申離侫鐃緒申鐃緒申鐃宿と最後か鐃初２鐃緒申鐃旬のフワ申鐃緒申鐃緒申匹鐃緒申廚鐃緒申鐃�
perl -lane 'print $F[0] + $F[-2]'

[鐃緒申鐃緒申鐃緒申]
鐃春ワ申鐃緒申鐃緒申鐃緒申単鐃縮でワ申鐃緒申鐃夙わ申鐃殉わ申
perl -e 'print sort <>' file

鐃春ワ申鐃緒申鐃緒申鐃術ラグ鐃緒申鐃獣縁申未妊鐃緒申鐃緒申箸鐃緒申泙鐃�
perl -00 -e 'print sort <>' file

複鐃緒申鐃春ワ申鐃緒申鐃緒申鐃春ワ申鐃緒申鐃緒申鐃緒申鐃緒申咾鐃緒申謄鐃緒申鐃緒申箸鐃緒申討鐃緒申蕋縁申椶離侫鐃緒申鐃緒申鐃夙わ申鐃緒申表鐃緒申鐃緒申
鐃殉わ申
perl -0777 -e 'print sort <>' file1 file2

[反転]
鐃緒申鐃緒申鐃緒申鐃緒申譴随申侫鐃緒申鐃緒申鐃緒申鐃獣縁申未任劼辰鐃緒申鐃緒申屬鐃緒申泙鐃�
perl -e 'print reverse <>' file1

鐃春ワ申鐃緒申鐃緒申鐃淑醐申鐃獣縁申未任鐃緒申戮討劼辰鐃緒申鐃緒申屬鐃緒申泙鐃�
perl -0777e 'print scalar reverse <>' f1 f2 f3 ...

鐃春ワ申鐃緒申鐃緒申鐃術ラグ鐃緒申鐃獣縁申未任劼辰鐃緒申鐃緒申屬鐃緒申泙鐃�
perl -00 -e 'print reverse <>' file1 file2 file3 ....

鐃緒申鐃峻わ申鐃緒申鐃淑醐申鐃獣縁申未任劼辰鐃緒申鐃緒申屬鐃緒申泙鐃�
perl -nle 'print scalar reverse $_' file1 file2 file3 ....

鐃緒申鐃書かわ申鐃淑醐申鐃獣居申鐃緒申泙鐃緒申鐃緒申鐃叔逸申覆鐃緒申鐃緒申鐃緒申楔鐃祝わ申鐃出縁申鐃緒申鐃銃わ申鐃殉わ申鐃緒申
perl -lne 'print if $_ eq reverse' /usr/dict/words

鐃春ワ申鐃緒申鐃緒申鐃緒申烹鐃緒申鐃淑常申連続鐃緒申鐃銃醐申鐃緒申鐃獣縁申譴�申鐃緒申鐃出￥申鐃緒申鐃塾わ申鐃緒申鐃塾ｏ申鐃縦わ申表鐃緒申鐃緒申鐃緒申
鐃緒申
perl -0777 -ne 'print "$.: doubled $1\n" while /\b(\w+)\b\s+\b\1\b/gi'

[鐃緒申鐃緒申鐃術器申]
鐃緒申鐃熟わ申鐃曙た鐃緒申鐃緒申鐃淑随申鐃薯１ｏ申鐃淑随申鐃緒申鐃術器申鐃緒申鐃緒申表鐃緒申鐃緒申鐃殉わ申鐃緒申CTRL-C鐃叔緒申了
perl -ne 'printf "%x\n",$_'

鐃緒申鐃熟わ申鐃曙た鐃緒申鐃緒申鐃淑随申鐃薯８進随申鐃緒申鐃術器申鐃緒申鐃緒申表鐃緒申鐃緒申鐃殉わ申鐃緒申CTRL-C鐃叔緒申了
perl -ne 'printf "%o\n",$_'

鐃緒申鐃熟わ申鐃曙た鐃緒申鐃緒申鐃淑随申鐃薯１ｏ申鐃淑随申鐃緒申鐃術器申鐃緒申鐃緒申表鐃緒申鐃緒申鐃殉わ申鐃緒申CTRL-C鐃叔緒申了
perl -ne 'print hex($_)."\n"'

鐃緒申鐃熟わ申鐃曙た鐃緒申鐃淑随申鐃薯１ｏ申鐃淑随申鐃緒申鐃術器申鐃緒申鐃緒申表鐃緒申鐃緒申鐃殉わ申鐃緒申CTRL-C鐃叔緒申了
perl -ne 'print oct($_)."\n"'

鐃淑逸申鐃緒申鐃緒申箸鐃緒申瞳彁鐃緒申任鐃緒申泙鐃緒申鐃�CTRL-C鐃叔緒申了
perl -ne 'print eval($_)."\n"'

鐃緒申-M鐃緒申反則鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申鐃緒申鐃緒申鐃盾ジ鐃遵ー鐃緒申鐃�1鐃緒申鐃緒申郎

http://www.yahoo.co.jp/鐃塾ペ￥申鐃緒申鐃塾ワ申鐃緒申鐃緒申鐃緒申表鐃緒申
perl -MLWP::UserAgent -e 'LWP::UserAgent->new->request(HTTP::Request->new('GET',$ARGV[0]),sub{print $_[0];});' http://www.yahoo.co.jp/

鐃緒申鐃緒申鐃叔誌申鐃所し鐃緒申鐃夙わ申鐃緒申鐃緒申鐃初す鐃駿てのフワ申鐃緒申鐃緒申鮓�弔鐃緒申鐃宿緒申鐃緒申鐃緒申泙鐃�
perl -MFile::Find -le 'find {wanted=>sub {print;}},$ARGV[0]'

鐃緒申鐃緒申鐃夙デワ申鐃曙ク鐃夙リか鐃初す鐃駿ての鰹申張鐃緒申pl鐃春ワ申鐃緒申鐃緒申鮓�弔鐃緒申鐃宿緒申鐃緒申鐃緒申泙鐃�
perl -MFile::Find -le 'find {wanted=>sub {print if /\.pl$/;}},$ARGV[0]'

鐃叔ワ申鐃曙ク鐃夙ワ申鐃緒申鐃殉わ申鐃緒申mkdir鐃夙逸申辰匿鐃緒申鐃緒申鐃緒申悗鐃緒申鐃駿に削申襪鰹申箸鐃緒申任鐃緒申鐃�
鐃緒申鐃緒申
perl -MFile::Path -e 'mkpath([@ARGV],1,0777)' test/tmp1 test2/tmp2

Base64鐃叔ワ申鐃藷コ￥申鐃宿わ申鐃殉わ申
perl -MMIME::Base64 -ne 'print &MIME::Base64::encode_base64( $_)' file

Base64鐃叔ワ申鐃藷コ￥申鐃宿わ申鐃曙たfile鐃緒申妊鐃緒申鐃緒申匹鐃緒申泙鐃�
perl -MMIME::Base64 -ne 'print &MIME::Base64::decode_base64( $_)' file

Quoted-Printable 鐃叔ワ申鐃藷コ￥申鐃宿わ申鐃殉わ申(鐃緒申鐃緒申 RFC 2045 )
perl -MMIME::QuotedPrint -ne 'print &MIME::QuotedPrint::encode_qp( $_)' file

鐃緒申鐃所さ鐃曙た鐃准￥申鐃緒申鐃緒申鐃獣てわ申鐃緒申表鐃緒申鐃緒申鐃殉わ申鐃緒申
perl -MLWP::Simple -e 'getprint "http://www.foo.bar.com/";

ftp鐃叔フワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申匹鐃緒申泙鐃緒申鐃�
perl -MLWP::Simple -e 'getstore "ftp://ftp.sunet.se/pub/lang/perl/CPAN/src/latest.tar.gz","perl.tar.gz"'

http鐃宿ワ申鐃緒申鐃緒申箸離潺蕁種申鐃緒申
perl -MLWP::Simple -e 'mirror("http://www.perl.com/", "perl.html");'

鐃緒申鐃緒申鐃緒申鐃熟削申里鐃緒申鐃塾ワ申鐃竣ワ申鐃緒申鐃緒申鐃緒申

-0鐃緒申鐃緒申(8 鐃淑随申)
鐃曙コ鐃緒申鐃宿ワ申鐃術レー鐃緒申 ($/) 鐃緒申 8 鐃淑随申鐃叔種申鐃緒申鐃殉わ申鐃緒申鐃叔フワ申鐃緒申肇鐃緒申僖譟種申鐃緒申鐃緒申浪鐃�
鐃峻でわ申

-00
鐃術ラグ鐃緒申侫癲種申匹砲鐃緒申泙鐃緒申鐃緒申僖薀逸申鐃春とわ申連続鐃緒申鐃緒申鐃緒申鐃峻で駈申鐃准わ申鐃緒申
文鐃塾固まわ申任鐃�

-0777 鐃緒申鐃術レー鐃緒申鐃緒申鐃緒申無鐃緒申鐃祝わ申鐃殉わ申鐃緒申鐃緒申鐃淑わ申鐃緒申侫鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申僖薀逸申鐃春にわ申
鐃緒申泙鐃�

-a 鐃緒申動split鐃盾ー鐃緒申
鐃緒申鐃緒申 @F = split(' ');
鐃緒申鐃准わ申文鐃緒申鐃緒申-F鐃叔誌申鐃緒申鐃叔�
鐃叔フワ申鐃緒申箸鐃�1文鐃緒申鐃緒申鐃准￥申鐃緒申

-e
1鐃緒申鐃緒申郎鐃塾ワ申鐃緒申鐃緒ー鐃緒申
鐃緒申鐃殉ワ申疋薀わ申鐃祝わ申鐃緒申鐃緒申鐃緒申譴進醐申鐃緒申鐃緒申perl鐃塾プワ申鐃緒申鐃緒申鐃夙わ申鐃銃実行わ申鐃殉わ申
複鐃緒申鐃緒申-e鐃緒申箸鐃緒申鐃緒申箸鐃叔わ申鐃殉わ申鐃緒申鐃緒申鐃淳ワ申鐃緒申鐃緒申必鐃緒申

-i鐃緒申張鐃緒申
.bak鐃淑どわ申鐃緒申蠅刻申襪鰹申箸如鐃緒申帖鐃緒申離侫鐃緒申鐃緒申鐃塾バッワ申鐃緒申鐃獣プわ申鐃獣て常申颪④鐃�
鐃殉わ申鐃緒申

-l鐃緒申鐃緒申(8 鐃淑随申)
鐃緒申動chomp
鐃緒申鐃熟誌申鐃祝随申鐃緒申(8 鐃淑随申)鐃緒申鐃緒申團鐃緒申鐃緒申匹鐃緒申屬鐃緒申鐃緒申鐃緒申襦�

-n
鐃緒申動鐃暑ー鐃緒申
while (<>) {
... # 鐃緒申鐃緒申鐃叔ワ申鐃緒申鐃緒申廛箸鐃緒申孫圓鐃緒申鐃緒申
}

-p
鐃緒申動鐃暑ー鐃緒申print鐃緒申
while (<>) {
... # 鐃緒申鐃緒申鐃叔ワ申鐃緒申鐃緒申廛箸鐃緒申孫圓鐃緒申鐃緒申

}

鐃夙み刻申錣�

-na -F鐃緒申鐃緒申表鐃緒申
while (<>) {
@F=split(/鐃緒申鐃緒申表鐃緒申/);
... # 鐃緒申鐃緒申鐃叔ワ申鐃緒申鐃緒申廛箸鐃緒申孫圓鐃緒申鐃緒申
}

-pa -F鐃緒申鐃緒申表鐃緒申
while (<>) {
@F=split(/鐃緒申鐃緒申表鐃緒申/);
... # 鐃緒申鐃緒申鐃叔ワ申鐃緒申鐃緒申廛箸鐃緒申孫圓鐃緒申鐃緒申
print ;
}