Perlでリクに答えるスクリプトを作るスレat TECHPerlでリクに答えるスクリプトを作るスレ - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト750:デフォルトの名無しさん 08/10/26 14:31:15 情報後出しするやつは面倒だからお断りします 751:デフォルトの名無しさん 08/10/29 19:22:48 偶数行と奇数行を入れ替えるスクリプトをお願いします。 出力例） $cat test.dat １ ２ ３ ４ ５ ６ スクリプト実行後 $cat test.dat ２ １ ４ ３ ６ ５ 752:デフォルトの名無しさん 08/10/29 21:16:39 perl -pe 'print scalar <>' 753:デフォルトの名無しさん 08/10/30 07:17:55 my $old ; while (<>){ if ( $.%2 != 0 ){ $old = $_ ; next ; } print $_, $old ; undef $old ; } if ( defined $old ){ print "odd\n", $old ; } 754:デフォルトの名無しさん 08/11/14 20:58:20 list.txtファイルに検索をかけたいキーワードを記入し そのリストのキーワードを元にgrepみたいな動作をするスクリプト listファイルの中身 $cat list.txt aho baka test 検索をかけたいファイル（test.txt）の中身 $cat test.txt aho 1 baka 2 manuke 3 test 4 実行結果 $./grep.pl aho 1 baka 2 test 4 よろしくお願いします。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch