Регулярные выражения в Perl ..

[Гость]

Помогите ламеру:

Как сделать, имеется файл в котором инфа записана в виде:

infa1

infa2

infa3 и т.д, нужно чтобы скрипт открывал этот файл, записовал информацию в ввиде: infa1 infa2 infa3, закрывал файл.

Заранее спасибо

[Гость]

Помогите ламеру:

Как сделать, имеется файл в котором инфа записана в виде:

infa1

infa2

infa3 и т.д, нужно чтобы скрипт открывал этот файл, записовал информацию в ввиде: infa1 infa2 infa3, закрывал файл.

Заранее спасибо

[Гость]

А нафиг регулярки? Открываешь файл в массив, chomp'ишь элементы, потом записываешь как надо.

[Гость]

А нафиг регулярки? Открываешь файл в массив, chomp'ишь элементы, потом записываешь как надо.

[Гость]

$fn = ...

open(F,"$fn) || die "cant $!\n";

# variant

#$fn_new = $fn ." _new";

#unless (-f $fn_new) {

# open(FN,">$fn_new") || die "$!\n";

#} else {

# die "Already is $fn_new\n";

#}

my (@p);

while() {

chomp;

push(@f,$_);

} close(F);

my $str = join(", ",@f);

open(F,">$fn) || die "cant $!\n";

print F $str;

close(f);

[Гость]

$fn = ...

open(F,"$fn) || die "cant $!\n";

# variant

#$fn_new = $fn ." _new";

#unless (-f $fn_new) {

# open(FN,">$fn_new") || die "$!\n";

#} else {

# die "Already is $fn_new\n";

#}

my (@p);

while() {

chomp;

push(@f,$_);

} close(F);

my $str = join(", ",@f);

open(F,">$fn) || die "cant $!\n";

print F $str;

close(f);

[Гость]

Что хотел, получил!

[Гость]

Что хотел, получил!

[Гость]

Думаю можно так:

@tmp=`cat infa_file`;

`echo "@tmp">infa_file`;

[Гость]

Думаю можно так:

@tmp=`cat infa_file`;

`echo "@tmp">infa_file`;