🚀 go-pugleaf

> A wiec jedyne co jest do zrobienia to w sekcji $smieci zabronic kropce 
lykania 
> interesujacych nas ciagow jakims, na moje oko, interesujacym assertem. 
Jeszcze 
> nad tym posiedze.

Albo moze troche inne podejscie:
1. wyciac smieci
2. zastosowac prostego regexpa do wyciagniecia danych

my$cutline='';
my$regexp = '(Job Type\s*:|'.
            'Backup mode\s*:|'.
            'Job Start Time\s*:|'.
            ':\s*Media\s*:|'.
            'Backup Last Objects\s*:|'.
            'Job End Time\s*:|'.
            'Completed Size\s*:|'.
            'Failed Objects\s*:|'.
            'Job Completed Succ?essfully|Job)';
$cutline.="$1$2\n" while $line =~ /^\s*$regexp(.*)$/mg;
$cutline=~s/^$dwukropek//mg;

print"Po wycieciu smieci:\n$cutline\n\n";

$cutline=~/Job\s*(.+)\n
        Job\ Type             $dwukropek (.+)\n
       Backup\ mode          $dwukropek (.+)\n
        Job\ Start\ Time       $dwukropek (.+)\n
        ((?:Media      $dwukropek .+\n)*)
        (?:Backup\ Last\ Objects? $dwukropek (.+)\n)?
        (?:Job\ End\ Time        $dwukropek (.+)\n)?
        Completed\ Size       $dwukropek (.+)\n
        (?:Failed\ Objects       $dwukropek (.+)\n)?
        (?:(Job\ Completed\ Succ?essfully).*\n)?
        (?:Media $dwukropek Home\\.+? - .+? \\ ([^\n\\]+))?
/x;
        
my @tab=(0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$10);
for my $a(1..10) {
  $tab[$a]='UNDEF' unless defined $tab[$a];
  print "Druga seria: \$$a = $tab[$a]\n";
}



Wynik:
Po wycieciu smieci:
Job Testowe zadanie
Job Type                 : Backup Job
Backup mode              : Full
Job Start Time           : 14-Jul-2002 01:00 Pm
Media          : TASMA15
Media          : TASMA15
Job End Time             : 14-Jul-2002 08:08 Pm
Completed Size           : 96626454 Kbytes
Failed Objects           : 49
Job Completed Sucessfully


Druga seria: $1 = Testowe zadanie
Druga seria: $2 = Backup Job
Druga seria: $3 = Full
Druga seria: $4 = 14-Jul-2002 01:00 Pm
Druga seria: $5 = Media          : TASMA15
Media          : TASMA15

Druga seria: $6 = UNDEF
Druga seria: $7 = 14-Jul-2002 08:08 Pm
Druga seria: $8 = 96626454 Kbytes
Druga seria: $9 = 49
Druga seria: $10 = Job Completed Sucessfully


Acha, Media sie pojawia dwa razy(!), wiec wrzucilem w calosci do $5

pzdr
Grizzley

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl