neuer Test (Tests) - Perl-Community.de

havi

2003-08-29 13:57

User since
2003-08-04
2036 Artikel
BenutzerIn

Test

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

havi

2003-08-29 13:58

User since
2003-08-04
2036 Artikel
BenutzerIn

Passt!

mfg havi\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

snadra

2003-08-29 14:36

User since
2003-08-11
265 Artikel
BenutzerIn

Hallo,

Deine sig erzeugt einen Fehler auf meiner Commandline. Habe jetzt aber keine Zeit ihn zu suchen.

Code: (dl )

[hennigs@rapogy2 test]$ perl -e "eval reverse q~. ssurG.q tnirp~;$_=reverse map{chr}(105,118,97,104);print;"
Can't modify concatenation (.) or string in scalar assignment at -e line 1, near ");"
syntax error at -e line 1, near ";="
Execution of -e aborted due to compilation errors.
[hennigs@rapogy2 test]$

http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}

havi

2003-08-29 14:43

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=snadra,29.08.2003, 12:36]Hallo,

Deine sig erzeugt einen Fehler auf meiner Commandline. Habe jetzt aber keine Zeit ihn zu suchen.

Code: (dl )

[hennigs@rapogy2 test]$ perl -e "eval reverse q~. ssurG.q tnirp~;$_=reverse map{chr}(105,118,97,104);print;"
Can't modify concatenation (.) or string in scalar assignment at -e line 1, near ");"
syntax error at -e line 1, near ";="
Execution of -e aborted due to compilation errors.
[hennigs@rapogy2 test]$

[/quote]
C:\>perl -e "eval reverse q~. ssurG.q tnirp~;$_=reverse map{chr}(105,118,97,104);print;"
Gruss havi
C:\>

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2003-08-29 14:55

User since
2003-08-04
5866 Artikel
ModeratorIn

Unter *nix solltest Du ' statt " nehmen, Snadra.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

havi

2003-08-29 14:59

User since
2003-08-04
2036 Artikel
BenutzerIn

Korrekt!

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2003-08-29 15:00

User since
2003-08-04
5866 Artikel
ModeratorIn

btw. was testest Du hier eigentlich? :)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

havi

2003-08-29 15:03

User since
2003-08-04
2036 Artikel
BenutzerIn

Test ist eigentlich schon lange abgeschlossen :-)

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

snadra

2003-08-29 15:40

User since
2003-08-11
265 Artikel
BenutzerIn

Oh - ja - hatte sie mir GARnicht angesehen... :blush:

http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}