Thread Zweistufiges script (11 answers)
Opened by michaelf2050 at 2010-07-27 13:23

renee
 2010-07-27 14:34
#140088 #140088
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wenn das "Everything ok" in der ersten Zeile der Datei steht, dann müsste das so aussehen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

if (open my $fh, '<',$file) {
    my $line = <$fh>;

    if ( $line =~ /Everything is Ok/) {
        push @errors, "Export von sid $sid OK.\n";
    }
    else {
        push @errors, "beim Export von sid $sid traten fehler auf.\n";
    }
    close $fh;
}


Wenn es irgendwo in der Datei stehen kann, kannst Du es so machen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

if (open my $fh, '<',$file) {
    local $/;
    my $content = <$fh>;

    if ( $content =~ /Everything is Ok/) {
        push @errors, "Export von sid $sid OK.\n";
    }
    else {
        push @errors, "beim Export von sid $sid traten fehler auf.\n";
    }
    close $fh;
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Zweistufiges script