форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Скрипт не работает :("
Сообщение от RSR (ok) on 21-Сен-04, 11:59  (MSK)
Есть файл users где в столбик записаны ники юзеров, надо прочитать этот файл и вывести в другой файл так: ник_юзера1 TEST ник_юзера2 TEST ник_юзера3 TEST тоесть также вывести в столбик, только добавить слово TEST возле каждого ника? вот написал скрипт но он неправильно выводит :( ОС freebsd #!/usr/bin/perl open(F,"users"); while(<F>)   { $tuz=$_; push(@mas,$tuz); undef $tuz; } close(F); open(FILE,">users.txt"); foreach $ss(@mas)     { print FILE "$ss TEST"; } close(FILE);
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Скрипт не работает :("
Сообщение от Brainbug (ok) on 21-Сен-04, 13:54  (MSK)
>Есть файл users где в столбик записаны ники юзеров, надо прочитать этот >файл и вывести в другой файл так: > >ник_юзера1 TEST >ник_юзера2 TEST >ник_юзера3 TEST > >тоесть также вывести в столбик, только добавить слово TEST возле каждого ника? > >вот написал скрипт но он неправильно выводит :( ОС freebsd > >#!/usr/bin/perl >open(F,"users"); >while(<F>) >  { >$tuz=$_; >push(@mas,$tuz); >undef $tuz; >} >close(F); >open(FILE,">users.txt"); >foreach $ss(@mas) >    { >print FILE "$ss TEST"; >} >close(FILE); Samij prostoi bez vsakih provekor i t.d.: #!/usr/local/bin/perl -w $srcf=$ARGV[0]; $dstf=$ARGV[1]; open SFH,"<",$srcf || die "Can't open $srcf file"; open DFH,">",$dstf || die "Can't open $dstf fil"; while (<SFH>){         chomp;         s/\n//;         printf DFH "$_ TEST\n"; } close DFH || die "Can't close $dstf file"; close SFH || die "Can't close $srcf file"; exit 0;
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Скрипт не работает :("
Сообщение от Maxim Kuznetsov on 21-Сен-04, 16:12  (MSK)
>Есть файл users где в столбик записаны ники юзеров, надо прочитать этот >файл и вывести в другой файл так: > >ник_юзера1 TEST >ник_юзера2 TEST >ник_юзера3 TEST > >тоесть также вывести в столбик, только добавить слово TEST возле каждого ника? > >вот написал скрипт но он неправильно выводит :( ОС freebsd > >#!/usr/bin/perl >open(F,"users"); >while(<F>) >  { >$tuz=$_; >push(@mas,$tuz); >undef $tuz; >} >close(F); >open(FILE,">users.txt"); >foreach $ss(@mas) >    { >print FILE "$ss TEST"; >} >close(FILE); есть ещё такие команды в textutils как cut и paste - очень рекомендую изучить, чтобы не множить инсталяции perl и прочих монстров Учите мат.часть !
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.