Hi !<br><br>I have flat database:<br><br><b>100¦Bond¦James<br>101¦Smith¦Jack<br>102¦Black¦Janet</b><br><br>How can i sort this database with Surname or First Name ??<br>I can sort with number <b>sort ( $a cmp $b ) @array</b> but....<br><br><br>Please help !<br><br>Thanx!<br><br>
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Sorting with Perl ???
- Thread starter Vesku
- Start date
open (FILE, $file);<br>my @FILE = <FILE>;<br>close (FILE);<br><br>my %DATABASE;<br>foreach my $line (@FILE)<br>{<br> $line =~ /(\d*)¦(.*)¦(.*)/;<br> my $SURNAME=$2;<br> $DATABASE{$SURNAME}{"FIRSTNAME"}=$3;<br> $DATABASE{$SURNAME}{"NUMBER"}=$1;<br>}<br><br>foreach my $surnames (sort keys(%DATABASE))<br>{<br> print qq~$DATABASE{$surname}{"NUMBER"}¦$surname¦$DATABASE{$surname}{"FIRSTNAME"}\n~;<br>}<br><br>That should do it. <p> Sincerely,<br><a href=mailto: > </a><br><a href= Anderson</a><br>CEO, Order amid Chaos, Inc.<br>
Or, if you'll forgive me for line counting Tom, there's this solution which uses a simple hash.<br><FONT FACE=monospace><b><br>open (FILE, $file);<br>while(<FILE>
{<br> chomp;<br> my ($num,$sname,$fname)=split(/\¦/);<br> my $DATABASE{$sname}=$_;<br>}<br>close (FILE);<br><br>foreach my $surname (sort keys(%DATABASE)){<br> print \n$DATABASE{$surname}\n";<br>}<br></font></b><br> <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
{<br> chomp;<br> my ($num,$sname,$fname)=split(/\¦/);<br> my $DATABASE{$sname}=$_;<br>}<br>close (FILE);<br><br>foreach my $surname (sort keys(%DATABASE)){<br> print \n$DATABASE{$surname}\n";<br>}<br></font></b><br> <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Yup, you could do that. The only disadvantage is you cannot extract individual fields except surname.<br><br>I also prefer reading the entire file into an array (if it's not too terribly large) so that I can put flocks around it and minimize the amount of time that it is open.<br><br>Also, you should declare: my %DATABASE; <p> Sincerely,<br><a href=mailto: > </a><br><a href= Anderson</a><br>CEO, Order amid Chaos, Inc.<br>
Yes, I agree. It was the way you'd split the input line that caught my attention really.<br><br>By the way -- I *do* like that array of hashes, and hash of hashes [of hashes [of hashes]] business. I'm going to use that all over the place. Seems to me that it's the easisest way of dealing with 'record' type data and it's almost skipped over in the Camel book.<br> <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
Yeah, I've been so steeped in regexps lately that I often overlook other methods. When all you've got is a hammer, everything begins to look like a nail.<br><br>You can make arrays of anything, including arrays. That is a fairly well-known programming rule. Multidimensional arrays should be covered in just about any basic programming book. <p> Sincerely,<br><a href=mailto: > </a><br><a href= Anderson</a><br>CEO, Order amid Chaos, Inc.<br>
er, thx Tom <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
Instead of starting a new thread I'll just continue this one. <br><br>I'm having trouble sorting myself. I have a subroutine that prints out my directory listings recursively. If I use the sort function it sorts alphabetically (as we all know). However, I want to sort or print the directories first then the files underneath that directory, if you know what I mean...<br><br>Can someone help?
hi,<br><br>you could make two passes through the dir<br><br>the first time - only print if -d test is true<br>the second time - only print if -d test is false<br> <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
I did that, I think... But it still doesn't work. Here's what my code looks like...
tell me what I'm doing wrong...
sub recurs {
my ($dir) = @_;
opendir (DIR, "$dir" or die "Can't open: $!\n";
my @alldir = sort readdir (DIR);
shift(@alldir);
shift(@alldir);
closedir(DIR);
foreach $subdir (@alldir) {
if (-d "$dir\\$subdir" {
print "\n$subdir\n\n";
recurs($dir.$subdir."\\"
}
elsif (!(-d "$dir\\$subdir") {
print "$subdir\n";
}
}
}
tell me what I'm doing wrong...
sub recurs {
my ($dir) = @_;
opendir (DIR, "$dir"
or die "Can't open: $!\n";my @alldir = sort readdir (DIR);
shift(@alldir);
shift(@alldir);
closedir(DIR);
foreach $subdir (@alldir) {
if (-d "$dir\\$subdir"
{print "\n$subdir\n\n";
recurs($dir.$subdir."\\"
;}
elsif (!(-d "$dir\\$subdir"
) {print "$subdir\n";
}
}
}
- Status
Similar threads
