Opened by jemand at 2004-05-23 23:24
User since
2004-05-14
231 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-14
231 Artikel
BenutzerIn
gut dann mach ichs ab jetzt anders
kann misr bitte noch jemand sagen was hier falsch ist:
es muss in der sub sein da bin ich sicher
ein eintrag von iuser.dat sieht so aus:
PS gibtz eigentlich nur $1 bis $9 oder mehr??
kann misr bitte noch jemand sagen was hier falsch ist:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub riuser { ##-> @userdat = riuser(id); ready!!!
my $uid = shift;
my $dat = 'iuser.dat';
open(DAT, "<$dat");
my @daten = <DAT>;
close(DAT);
my @userdat;
foreach(@daten) {
my $einzln = $_;
if($einzln =~ /^$uid.+/) {
@userdat = split(/\*\*/, $einzln);
}
}
return @userdat;
}es muss in der sub sein da bin ich sicher
ein eintrag von iuser.dat sieht so aus:
Code: (dl
)
001**npc** ** ** **Gott** **Berg der Götter** ** ** ** ** ** **mailadrr**01.06.2004******shdvfdqPq31rU**
PS gibtz eigentlich nur $1 bis $9 oder mehr??
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;