also, with
@catl = sort {$a->[0] cmp $b->[0]} @unsorted;
print @catl;
@catl is not sorted. please try with your file.
@catl = sort {$a->[0] cmp $b->[0]} @unsorted;
print @catl;
@catl is not sorted. please try with your file.
Apr 22, 2002, 6:06 AM
Veteran (2199 posts)
Apr 22, 2002, 6:06 AM
Post #27 of 50
Views: 15899
No.
I have exactly the code as I gave you above, and I use as the input file
robyone that street somewhere
paul some other street England
and the output is
robyone
yogi
Can't help you more than that. And print @catl doesn't really make sense.
Ivan
-----
Iyengar Yoga Resources / GT Plugins
I have exactly the code as I gave you above, and I use as the input file
Code:
yogi This street Moon robyone that street somewhere
paul some other street England
and the output is
Code:
paul robyone
yogi
Can't help you more than that. And print @catl doesn't really make sense.
Ivan
-----
Iyengar Yoga Resources / GT Plugins
Apr 22, 2002, 6:16 AM
Veteran (19537 posts)
Apr 22, 2002, 6:16 AM
Post #30 of 50
Views: 15949
Well yeah thats what its meant to do. Yogi was only giving you an example.
$_->[x] prints each element so just add the extra elements you want to print.
If you are looking for someone to write all the code then maybe you should go to the custom jobs forum.
$_->[x] prints each element so just add the extra elements you want to print.
If you are looking for someone to write all the code then maybe you should go to the custom jobs forum.
Apr 22, 2002, 6:31 AM
User (119 posts)
Apr 22, 2002, 6:31 AM
Post #31 of 50
Views: 15887
Paul,
the problem is that it prints only the last line in my db. It multiplies -forearch record in the db- the last record found .... Resulting that $_->[0] produces
paul
paul
paul
from a text file like:
-----
roby
yogy
paul
-----
the problem is that it prints only the last line in my db. It multiplies -forearch record in the db- the last record found .... Resulting that $_->[0] produces
paul
paul
paul
from a text file like:
-----
roby
yogy
paul
-----
Apr 22, 2002, 6:32 AM
Veteran (2199 posts)
Apr 22, 2002, 6:32 AM
Post #32 of 50
Views: 15790
Can you post your code, then we might see what is wrong.
Ivan
-----
Iyengar Yoga Resources / GT Plugins
Ivan
-----
Iyengar Yoga Resources / GT Plugins
May 15, 2002, 6:25 AM
Veteran / Moderator (18441 posts)
May 15, 2002, 6:25 AM
Post #36 of 50
Views: 15821
Huh?
Something like;
foreach (@catl) { print $_; }
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Something like;
foreach (@catl) { print $_; }
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 15, 2002, 7:55 AM
Veteran (19537 posts)
May 15, 2002, 7:55 AM
Post #42 of 50
Views: 15815
I don't understand what you mean?
Are you trying to match something in one of the arrayrefs?....I thought you were just asking in general
What code do you have so far?
Are you trying to match something in one of the arrayrefs?....I thought you were just asking in general
What code do you have so far?
May 15, 2002, 8:06 AM
User (119 posts)
May 15, 2002, 8:06 AM
Post #44 of 50
Views: 15847
here it is. i can't match $_ ( ARRAY(xxxxxxx) )against $keywork. thanks!!
-------------
my @unsorted; foreach $fcln (@fcatl){ my @fdata=split(/\t/,$fcln); push @unsorted, \@fdata;
@catl = sort { lc($a->[1]) cmp lc($b->[1]);
for (@catl){
if ($_ =~ /$keyword/i) {
....
-------------
my @unsorted; foreach $fcln (@fcatl){ my @fdata=split(/\t/,$fcln); push @unsorted, \@fdata;
@catl = sort { lc($a->[1]) cmp lc($b->[1]);
for (@catl){
if ($_ =~ /$keyword/i) {
....
Re: [Paul] sort problem ... help
May 15, 2002, 8:42 AM
Veteran (19537 posts)
May 15, 2002, 8:42 AM
Post #46 of 50
Views: 15783
Works ok for me...
print "Content-type: text/plain\n\n";
my @array = ( [1,2,3], [4,5,6], [7,8,9] );
for (@array) {
if (grep { /^5$/ } @$_) {
my $i = grep { /^5$/ } @$_;
print "Found: 5 - Element $i\n";
}
else {
print "Skipping...\n";
}
}
Code:
#!/usr/bin/perl print "Content-type: text/plain\n\n";
my @array = ( [1,2,3], [4,5,6], [7,8,9] );
for (@array) {
if (grep { /^5$/ } @$_) {
my $i = grep { /^5$/ } @$_;
print "Found: 5 - Element $i\n";
}
else {
print "Skipping...\n";
}
}
May 15, 2002, 8:45 AM
New User (2 posts)
May 15, 2002, 8:45 AM
Post #48 of 50
Views: 15713
$_ is a array ref,
you should de-ref it. like what Paul say, @$_;
you probably want to match one by one in the array.
then you can do like
@$_[indexnumber] =~ /keyword/
you should de-ref it. like what Paul say, @$_;
you probably want to match one by one in the array.
then you can do like
@$_[indexnumber] =~ /keyword/