Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]11720[/thread]

while bzw. Datei durchsuchen, Hilfe gesucht (Seite 2)

Leser: 2


<< |< 1 2 >| >> 15 Einträge, 2 Seiten
optron
 2008-04-29 23:57
#109013 #109013
User since
2008-04-29
3 Artikel
BenutzerIn
[default_avatar]
hey ok super jetzt hab ichs gecheckt aber eine frage im ergebnis steht jetzt immer

$Var1 = 'VS RT 926';
$Var2 = 'Opel';
usw.....


wie bekomme ich das weg das nur VS RT 926 zu sehen ist?
pktm
 2008-04-30 00:26
#109014 #109014
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Du benutzt wahrscheinlich Data::Dumper.
Lies in dessen Manpage nach, wie das geht. Das wird über diese Packagevariablen geregelt. $Data::Dumper::Indent bestimmt z.B. die Einrückung.
http://www.intergastro-service.de (mein erstes CMS :) )
styx-cc
 2008-04-30 00:37
#109015 #109015
User since
2006-05-20
533 Artikel
BenutzerIn

user image
Mach mal aus:
Code: (dl )
18: print Dumper @result; #ausgabe

Code: (dl )
1
2
3
for my $cur_res (@result) {
  print join('-', @$cur_res). "\n";
}


ungetestet
Pörl.
optron
 2008-04-30 01:00
#109016 #109016
User since
2008-04-29
3 Artikel
BenutzerIn
[default_avatar]
@styx-cc

danke dir aber geht leider nicht ;) jetzt kommt gleich nen fehler nach der suche


cant use string as an array ref while stricts refs in use at test.pl line 32, <data> line 3.


anderst gehts nur halt das var zeugs stört bissel
styx-cc
 2008-04-30 03:10
#109017 #109017
User since
2006-05-20
533 Artikel
BenutzerIn

user image
so funktionierts:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

...

my @result;
while (local $_ = <DATA>) {
  my @parts = split /\|/;
  if (grep {$_ eq $input} @parts) {
    push @result, [@parts];
  }
}

for my $cur_res (@result) {
  print join(' - ', @$cur_res). "\n";
}

__DATA__
...
Pörl.
<< |< 1 2 >| >> 15 Einträge, 2 Seiten



View all threads created 2008-04-29 01:48.