Was bedeutet das[4]?: ... (Seite 2) (Allgemeines zu Perl)

format_c

2003-09-08 22:46

User since
2003-08-04
1706 Artikel
HausmeisterIn

Also bei mir gehts nicht mit Windows.
Auch nicht nach importiert LM-Host Abfrage aus der Datei c:\Windows\system32\drivers\etc\hosts

Scheint wohl wirklich nur ein Linux Feature zu sein

Effizente Linuxshell

[E|B]

2003-09-08 22:48

User since
2003-08-08
2561 Artikel
HausmeisterIn

Ne, glaub auch nicht, dass du den Host da irgendwie umstellen kannst. Das ist bei Perl vermutlich fest in den Quellcode integriert. Oder holt Perl sich den Hostname aus einer Lib? :o/

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

[E|B]

2003-09-08 22:52

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hab ja was vergessen! Nicht zu verschweigen, dass du den Output in binärer Darstellung erhällst. Du musst dann also noch umrechnen.

Edit: Lechtschreibrehler vrbeessertt! *gg*\n\n

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Ishka

2003-09-08 23:41

User since
2003-08-04
771 Artikel
HausmeisterIn

[E|B
,08.09.2003, 20:18]ARGV ist normal ein Array. Die "4" besagt, dass das 4. Element aus dem Array genommen werden soll. (Denk dran, dass man mit "0" anfängt zu zählen!)

btw: @ARGV ist der Array mit den übergebenen Parametern.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

[E|B]

2003-09-08 23:47

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hmm... Hatte gedacht es erwähnt zu haben. Da waren meine Gedanken wohl mal wieder wo anders! :D

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]