Opened by BrownWolf at 2003-09-20 20:34
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
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
#!/usr/bin/perl -w
use strict;
use warnings;
open(DAT,"datei.txt") || die $!;
local $/;
my $line = <DAT>;
print $1 if $line =~ /"(.*?)"/s;
close(DAT);
datei.txt:
my $var = "BrownWolf";
my $ujd = "
a
b
c
d
";
Ausgabe:
BrownWolf
Warum bekomme ich nicht "a b c d" ausgegeben ?
Code (perl): ()
1 2 3
sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;