http://www.cjrda.com/detail/q1165049091
こんなのでいいんじゃないですかね。
% cat テキスト.txt 元のテキストです. % perl -i.bak -wlp -e 'print $ARGV if $. == 1' テキスト.txt % cat テキスト.txt テキスト.txt 元のテキストです.
しかしベストアンサーはあれだな.
http://www.cjrda.com/detail/q1165049091
こんなのでいいんじゃないですかね。
% cat テキスト.txt 元のテキストです. % perl -i.bak -wlp -e 'print $ARGV if $. == 1' テキスト.txt % cat テキスト.txt テキスト.txt 元のテキストです.
しかしベストアンサーはあれだな.