|< 1 2 >| | 14 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
sub shutDown {
my $self = shift;
# zuerst das kommando zum herunterfahren abschicken
exec ('shutdown -r') or print STDERR "couldn't exec foo: $!";
# dann das Programm beenden
sleep(2);
exit(0);
} # /shutDown
exec ('shutdown', '-r') || print STDERR "couldn't exec shutdown: $!";
Quotekabel@kabelskiste$ cat bla.pl
#!/usr/bin/perl
exec( 'echo bla' ) || print STDERR "blubb";
kabel@kabelskiste$ cat bla2.pl
#!/usr/bin/perl
exec( 'echo bla' ) or print STDERR "blubb";
kabel@kabelskiste$ perl -MO=Concise bla.pl > bla_concise
bla.pl syntax OK
kabel@kabelskiste$ perl -MO=Concise bla2.pl > bla2_concise
bla2.pl syntax OK
kabel@kabelskiste$ diff bla_concise bla2_concise
3c3
< 2 <;> nextstate(main 1 bla.pl:2) v ->3
---
> 2 <;> nextstate(main 1 bla2.pl:2) v ->3
kabel@kabelskiste$
|< 1 2 >| | 14 Einträge, 2 Seiten |