Opened by wenze at 2009-06-02 23:14
Danke allen, das war ein kurzes Tief! Eine Stunde später hatte ich das hier hatte ich dann das hier:
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
$|++; # aktiviert Autoflush fuer STDOUT
use FindBin ();
use lib "$FindBin::Bin";
use strict;
use warnings;
use XML::Twig;
use Term::ANSIColor qw(:constants);
my $sid= parameter("solmankey=");
print "\n\t die sid lautet:".$sid."\n";
###############################################################################
# ask instance number
sub parameter{
my $search=$_[0];
my $parameter="";
my $found="";
foreach (@ARGV) {
$found = ($_ =~ s/^$search//g);
$parameter= $_;
last if $found ==1;
}
return $parameter;
}