Re: Výpis části souboru

[Ladislav Dobias]

Ahoj.

On Tue, 19 Feb 2008, Dalibor Kouřil wrote:

> Zkousel jsem neco jako skript v Perlu obnovdb.pl:
> #!/usr/bin/perl -wn
> BEGIN { $db = shift @ARGV }
> print if /^-- Current Database: \`$db\`/io .. /^-- Current Database:/io;

Myslim, ze operator ".." funguje jen nad polem/rozsahem 
hodnot. Kdezto zde mate jen jeden radek.

Zkuste treba neco jako:

#! /usr/bin/perl -wn
#BEGIN { $in=0; $db = shift @ARGV }
if ($in) {
         /^-- Current Database:/io and exit 0;
         print;
}
/^-- Current Database: $db/io and $in=1, print;


Zdravi
Lada

-- 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   ##       ##   #####   #####                     ,v
   ##      ####  ##  ## ##O-O##       Ladislav DOBIAS
   ##     ##  ## ##  ## ## > ##      lada @ dobias.info
   ##     ###### ##  ## ## v ##      http://dobias.info
   ###### ##  ## #####   #####  Interests: Unix, TeX, music
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%