On Mon, Mar 07, 2005 at 11:10:12AM +0200, Sava Chankov wrote:Daniel wrote:ÐÐÑÐ ÑÐ ÐÐ Ð ÑÑÐÐÐÐ ÐÐ ÑÐÑÑÑÐ, ÐÑÐÐÑÐ ÑÑÑÐÐÐ ÐÐ ÑÐÐÐÐÐÑÐÐ ÐÐÐÐ ÑÑÑÐÐÐ Ð ÑÐÐÑÑÐÐ ÑÐÐÐ Ð ÑÐ ÑÑÑ ÑÑÐÐÐÐÑÑÐÐ ÐÐÑÑÑÑÐÐÐÑÐ. ÐÐÐÐÑÐÑ ÐÐ Ñ ÐÑÐÐÐÐÐÐ ÑÐÐÐ Ð ÐÐÐÐÑÐÐÐ ÐÐ sed. ÐÐÐÑÑÐ Ð ÐÑÐÐÐÐÐ ÑÐÐÐÐÐ -
mv file file.tmp;
sed s/^$something.*$/$somethingandsomethingelse/ file.tmp > file
rm file.tmp
ÐÐÐÐ ÑÐÐÐÑÐ, ÐÐÑÐÐÐÐ ÐÐ ÐÐ ÑÑÐÐ, ÐÐ ÑÐÐÐÐÐÐÐ ÐÐ Ð system() ÐÐÑÐ. ÐÑÐÐÑÐ Ð,Ñe $somethingelse ÑÑÐÑÑÐÐ ÑÑÑÐÐÐ ÐÑ ÑÐÑÑÐ ÐÐ "1","2","3" (ÐÐÐÐÑÐÐÑÐ ÑÐ ÐÐÐÐÐ), ÐÐÐÑÐ ÐÐÐÑÐÐÐÐ ÐÐÑÐÐÑÑÐÐÐ ÐÐ Ð ÐÐÐÐÐÑÐÐ ÐÐÐÐÑÐÐ Ð ÑÐÐ, ÐÐ ÐÐÐÑÐ ÑÐÐÐÐÐÐÑ - ÐÐ ÑÐ! ÐÐÑÐ, ÑÐ ÐÐ Ð ÑÐÑÐÐÐÐÑÐÐ Ñ// ÐÐÐÑÐÑÐÑÐ. ÐÐÐÑÐ Ð ÐÐÐÐÑÐÐ, ÐÐ ÐÐÑÐ ÑÐÐÐÐÐÐÐ "ÐÐÐÐÐÐÐÑÐ" ÐÑÐ ÐÑÐÐÐÐÐÐ ÐÑÐÐÐÐÐÐÐÐ Ð ÐÐÐÑÑÐÐÐÐÐ Ñ Ð ÑÐÐ-Ð ÑÐÐÐ ÐÐÑÑ-Ð ÐÐ "ÐÐÑÐÐÑÐ" ÑÑ ÐÐÐÐÐÐ. ÐÐÐÐ | - ÐÐ Ð ÐÐÐÐÐÐÐÑÐ, ÐÐ ÐÐ ÐÑÐÐÐÐÐÐÐ Ñ \\.
ÐÐÐÐÐ. ÐÐÑÐ ÐÐ ÑÐ ÑÐÐ. ÐÐÐ ÑÐ ÑÐÑÐÑÐ ÐÐ ÐÐ-ÐÐÑÐ(ÑÐÑÐÐ|ÐÐÐÐÐÑÐÐ) ÐÐÑÐÐ ÐÐ ÐÐÐÑÐÐ ÐÐ ÐÐÐÐÐ ÑÐÐ ÐÑ ÑÐÐÑÑÐÐ ÑÐÐÐ - ÐÑÐÐÑÐÐ ÑÑÐ. ÐÐÐ ÐÐ ÑÐ ÑÑÑÑÐÐ ÐÑÑÐ Ð ÐÐÑÐÐÐ ÑÐ ÐÐÐÐÐÑ ÐÐ ÐÐÐÐ. sed2perl ÐÐ ÐÐ ÐÐÑÐ.ÐÐ ÑÐÐÐ ÑÐÐÐÑÐ ÐÑÐÐ ÐÑÐÐÐ ÐÐ ÐÐÐÑÑÐÐÑ ÐÐÐÐÐÐÐÐÑ ÑÐÐ:
perl -pi -e 's/^$something.*$/$somethingandsomethingelse/' file
-p assume 'while (<>) { ... }' loop around program but print line
also, like sed
-i[extension] edit <> files in place (makes backup if extension supplied)
-e program one line of program (several -e's allowed, omit programfile)
ÐÐÐÐÐÐÐÑÐ ÑÐÐÐÐÑÐÐ ÐÐÐÑÐ, ÑÐÐ ÑÐ ÐÐÐÑÐÐ ÐÐ ÐÐ ÐÐÐÑÐÐÐ ÐÐÑÐ ÑÐÑÑ ÐÑ ÐÑÑÐÐ ÐÑÐÐÑÐÐÐ, Ð $something Ð something else ÑÐ ÐÑÐÐÐÐÐÐÐÐ, ÐÐÐÑÐ ÐÐÐÑÑÐÐÐÑ ÑÐÑÐÐÐÑÑÐ ÐÑ ÐÑÑÐÐ ÐÐÑÑÐÑÐ ÐÐ ÐÑÐÐÑÐÐÐÑÐ. ÐÐÐÑ ÐÐ ÐÐÐÐÐÐÐÐÐ ÐÐ perl -pi ÐÑÐÐ system() ÐÐÐ exec() ÑÐ ÑÐ ÑÐÐÑÑÐÐ ÑÑÑ ÑÑÑÐÑÐ ÐÑÐÐÐÐÐÐ ÐÐÑÐ ÐÐÐÑÐ ÐÐ ÐÐÐÐÐÐÐÐÐ ÐÐ sed; ÑÐÑÐÐÐÐÑÐ Ð ÐÐ ÑÐ ÐÐÐÑÐÐÐ ÐÑÐÑÐÐ ÐÑÑÑÐ Ð ÑÐÐÐÑÐ ÐÑÐÐÑÐÐÐ :)
ÐÐÐÐÑÐÐÐ, ÐÐÑÑÑ
ÐÐ, ÑÐÐÐÐÑÐÐ ÐÐÐÐÐ ÐÑÐÐ ÐÐ ÐÐÐÑÐÐÐ ÐÐÐÐÐÐ. ÐÐÐÑÐ Ð ÐÐ ÑÐÑÑÐ ÑÑÐ ÑÐ ÑÐÐÑÑÐÐÐÐ Ñ ÐÑÐÐÐÐÐÐ, ÐÐÐÑÐ ÐÐÐÐÐÐÐÐÑ ÑÐÑÐÐÐ ÑÑÑ ÑÐÑÐÐÑ ÐÐ ÐÐÐÐÐÐÐÑÐ, ÐÐ ÐÑÐ ÑÑÐÐÐÐÑÐÐÐÐ ÐÐ ÑÑÐÐÐÐÑÑÐ ÑÑÐÐÐÑ ÐÐ-ÑÑÑÐÐÐÐÐÐ ÐÐ ÐÐÐÑÐÐÐÐÐÐ Ð Ð ÐÐÐÐÑÐÐ ÐÐ ÑÐ ÐÐÑÑÑÑÐ ÐÐ-ÐÐÑÐÐ ÐÐÐÐ. ÐÐÐÐÐÑÑ ÐÐÑÐÐ Ð ÐÐ ÑÐ ÐÑÐÐÑÐ ÑÐÐÑÑÐÐ ÑÐÐÐÐÑÐÑ Ð ÐÐ ÑÐ ÐÐÐÐÑÐ perl ÑÐÑÐÐÑ, ÑÐÐÐÐÑÐ ÑÐ, ÐÐÐ ÑÐÐÐÐÐ ÑÐÐÑÐÐ ÐÐÑÐ ÐÐÐÐÐÐÐÐÐ ÐÐ sed ÑÑÑ system() ÐÐÐ exec(), Ð
ÐÑÐÑÑÑÐÐ ÐÐ ÑÐ ÐÑÐÐÑÐ ÑÐÐÐÐ Ð ÐÐ ÑÐ ÐÐÐÐÐÑ Ð ÐÐÐÐ (ÐÐÐÑÐÑÐ Ð ÑÐÐÑ ÐÑÐÐÐÑ):
open(INFILE, '<', $infile) or die "Opening $infile: $!\n";
$tmpfile = "$outfile.tmp";
open(OUTFILE, '>', $tmpfile) or die "Opening $tmpfile: $!\n";
while (<INFILE>) {
s/^$something.*$/$somethingandsomethingelse/;
print OUTFILE;
}
close INFILE;
close OUTFILE;
rename $tmpfile, $outfile or die "Renaming to $outfile: $!\n";ÐÑÑÐÐÑÑ ÐÐÑÐÐ - ÐÐÐ ÐÐÐÑÑ, ÐÐÑÑÐ ÐÐÐÐÑÐÑÐ ÑÐÐÐ $something Ð $somethingandsomethingelse Ð ÐÑÐÑÐÑÑÐ (ÐÑÐÐÐÑÐÐ ÑÑÐ-ÑÐÑÐÑÐ ÑÐÐÐ), Ð ÑÐÐ ÐÐ ÑÐ ÑÐÐÐÐ ÐÐ ÐÐÐÐÐÐÐÐÑ ÑÐÐ, ÐÐÑÐ ÐÐ ÑÐÐÐ ÐÐÑÐÐ ÑÐ ÑÐÐÑÑÑÐÐÑ ÑÑÑÐÐ ÐÐ ÐÑÐÐÑÑÑ Ð ÐÐÑÐÐÑÑÑ ÑÐÐÐÐÐÐ, ÑÐ Ð ÐÐ ÐÐ ÐÑÐÐÐÐÐÑÐÐÑ - ÐÑÐÑÐÑÑÐÑÑ ÑÐÐÐÑÐÑÐ ÐÐ perl. ÐÑÐÑÐÑ ÐÐ ÐÑÑÐÐÐ Ð ÐÐÑÑÑÐÐÐÐÐ :)
-- Sava Chankov ÐÐÐÐ ÐÐÐÐÐÐ research and development ÐÑÐÑÑÐÐÐÐ Ð ÑÐÐÐÐÐ http://www.blueboard.biz ÐÐÑÐÐÑÐ ÐÐÐ ============================================================================ A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers). http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html ============================================================================
