LINUX.ORG.RU

Например:

#!/usr/bin/perl -w
use strict;
my $filename=$ARGV[0] || die "argument expected \n";
open (aF, "<$filename") || die ("Cannot open file $filename");

while (<aF>) {
  chomp; # avoid \n on last field
  print $_."0 0\n"; 
}
close(aF)

anonymous
()
Ответ на: комментарий от anonymous

Зачем такие сложности?

~$ perl -ne 'chomp; print "${_}<blah-blah>\n"' < geek-code
-----BEGIN GEEK CODE BLOCK-----<blah-blah>
Version: 3.12<blah-blah>
GCS/CM d--(+) s+:++ a- C++$ UL++++$ USB-$ P+++>+ L+++$ <blah-blah>
E--->- W++ N- o? K? w--> !O M- !V PS+ PE Y?>+ PGP(+) !t<blah-blah>
!5 !X R- !tv b++>+++ DI(++) D@ G e+++ h--- r+++ y? <blah-blah>
------END GEEK CODE BLOCK------<blah-blah>

Zulu ★★☆☆
()
Ответ на: комментарий от ananas

Одновременно 8)

Согласен, мой метод хуже.

Zulu ★★☆☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.