![]() |
![]() |
2 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use strict; use warnings; my $file = '/directory/dir/xyz.lis'; if( -e $file ){ my $retval = qx{perl ausfuehren.pl $file}; # wie auch immer der Aufruf normalerweise aussieht print $retval,"\n"; } else{ print "Datei $file ist nicht vorhanden!\n"; }
![]() |
![]() |
2 Einträge, 1 Seite |