Opened by cohama at 2014-05-07 12:37
User since
2011-08-16
102 Artikel
BenutzerIn
2011-08-16
102 Artikel
BenutzerIn
Hallo,
irgendwie habe ich gerade die Idee, dass der Grund für das nichtfunktionieren in dem
liegen könnte.
Sprich das Linux-Commando wird nur ausgeführt und gar nicht in die Variable gespeichert.
irgendwie habe ich gerade die Idee, dass der Grund für das nichtfunktionieren in dem
Code: (dl
)
exec
Sprich das Linux-Commando wird nur ausgeführt und gar nicht in die Variable gespeichert.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl -w
########################
# Modul Definition
#########################
use strict;
##########################
# Parameter Definition
#########################
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my ($date,$clock);
my ($HOME,$File1,$File2);
my ($ShellCommand,$extNUM,$last_nbs,$extDATA,$extPWD,$extLogin,$extDomain,$extProfile);
my @Array;
##########################
##########################
system("clear");
##########################
# Time-Calculation
##########################
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$date =sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday);
$clock =sprintf("%02d:%02d:%02d",$hour,$min,$sec);
###############################
# File-Operation
$File2 = "/home/admin/workspace/".$date."_ExtCheck.log";
if ( -e $File2 ){
open (iFile,"<$File1") || die $!;
open (oFile,">$File2") || die $!;
}
$ShellCommand = '/usr/bin/get_entry EXT ';
$extNUM = '38164835036';
$extDATA = exec($ShellCommand.$extNUM.' EXTENSIONNAT=3'); # Run Shell-Command
$extDATA =~ s/&/\n/g;
print $extDATA;