テキストファイル中の最長行の文字数を求める Perl ワンライナー - ablog

テキストファイル中の最長行の文字数を求める Perl ワンライナー - ablog

解決 - MATSU’s vision Perl ワンライナーでやってみた。 $ perl -nle '$a=length if($a<length);END{pr...概要を表示 解決 - MATSU’s vision Perl ワンライナーでやってみた。 $ perl -nle '$a=length if($a<length);END{print $a}' orcl_ora_879.trc 73 追記: こういう書き方もあるのか。 $ perl -MList::Util=max -lne 'push(@a,length);END{print max(@a)}' orcl_ora_879.trc 73 (↓)このへんを参考にしました。 max(List::Util) 配列の要素の最大値を求めるにはList::Utilモジュールのmax関数を使用します。 use List::Util qw(max); $ret = max(@array); よく使用する関数・標準モジュール一覧 - Perlゼミ(サンプルコードPerl入門) perl -MList::Util=min