Schwartzian transform and split 1

[JimJx]

Hi all,

for some reason, I am having a problem with this.

I have a flat file in the form of:

$userID\t$TempPass\tgroup\n

What I need to do is first, sort everything by userID and the Schwartzian gives output like

User1 temppass1 new
User10 temppass1 new
User2 temppass1 new
User20 temppass1 new
User3 temppass1 new

My userIDs are all that format, User followed by a number.

Then I run the split, and get the same thing, meaning I get the complete line. No split at all so I can pull out the userID

I am sure I am doing something stupid here, my logic may be all wrong....

As always, suggestions greatly appreciated.

Jim

My code:

open(PASSWORD, "$PASSWORD_FILE") || &Error("Cannot open password file: $PASSWORD_FILE, Error: $!",1);
	@PassFile = <PASSWORD>;
close(PASSWORD);

my @sorted = map  {$_->[0]}
             sort {$a->[1] cmp $b->[1] ||
                   $a->[2] <=> $b->[2]}
             map  {m/^([a-z]+)(\d+)$/i; [$_,lc($1),$2]}  @PassFile;

$cnt = 0;
foreach (@sorted) {
	($name, $pw, $level) = split('\t');
	 print "<TR><TD ALIGN=\"CENTER\"><INPUT TYPE=radio Name='No' Value='$cnt'> </TD><TD> $name </TD></TR>\n";
$cnt++;
}

 

[audiopro]

Does the script know what to split, using that syntax?

Keith

http://www.studiosoft.co.uk

 

[KevinADC]

here:

m/^([a-z]+)(\d+)$/

you should really remove the end of string anchor from the regexp, so it should be:

m/^([a-z]+)(\d+)/

that might help, but it's hard to say without seeing the real data file. You might be better off spliting on spaces intsead of tabs:

($name, $pw, $level) = split(/\s+/);

tabs can be finicky at times. You should also be using "strict" in your perl scripts.

- Kevin, perl coder unexceptional!

 

[KevinADC]

Does the script know what to split, using that syntax?

Yes it will know. Perl will defualt to using $_ in many functions if no other variable is used. In this case:

foreach (@sorted) {

is using $_ as the default scalar $_ to loop through the array so the split is splitting the correct scalar.

- Kevin, perl coder unexceptional!

 

[audiopro]

Thanks Kevin
I have only ever seen it as

split(/\t/, $_);

I didn't realise the $_ was optional.


Keith

http://www.studiosoft.co.uk

 

[JimJx]

Excellent, Kevin.

All your suggestions work perfectly.

Thank you and have a star!
Jim

 

[KevinADC]

Thanks fo the star. Just 8 more to be the first perl person to reach 300 stars in the perl forum.



- Kevin, perl coder unexceptional!