chop is chopping off the last letter

[vtprogrammer]

I'm comparing passwords in a script I'm writing. I get the user ID and password like this:
<t> ($userid, $pword) = (split(/\|/, $record));
<t> chop($pword);
The problem is that chop chops off the last letter of the last users password. How do I fix this. Any help or suggestions are greatly aprreciated. Thanks.

[vroom]

Use chomp instead of chop. The chomp manpage has a nice description of what it does.

vroom | Tim Vroom | [e-mail]

[plaid]

I don't quite understand your question. You're chopping a variable, but you don't want it to chop off the last letter? If you don't want it to chop off the last letter, then why are you chopping at all? The way to fix it would just be to not chop.

If what you want is to get rid of any trailing newlines, but not do anything if there aren't any, take a look at chomp, which is a more intelligent version of chop.

[cwest]

Help? Suggestions?

Don't use chop()!

Change your code to say the following and you won't have problems any more. (not that one any how.)

my( $userid, $pword ) = split /\|/, $record;

Oye..

--
Casey

[Anonymous Monk]

The problem is probably caused by reading from a file - you get lines (read into @records) as follows:

user1|pass1\n
user2|pass2\n
user3|pass3


note the last line doesn't have a \n at the end, hence chop chops the last char off rather than the \n

Again, the easiest way is to just use chomp rather than chop. Otherwise you could hack it by doing

# add /n to last record
my $hackyvar = pop @records;
$hackyvar .= "\n";
push @records, $hackyvar;

(you can probably do this in one line but I prefer readable code...)

and then do your foreach loop after that. Hacky, but it works.

But use chomp anyway...