1
2
3
4
5
6
7
8
9

if( $lines[0] =~ /^1/ ){
    exit;
}

# oder

if( substr( $lines[0], 0, 1 ) == 1 ){
    exit;
}

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/