file parsing..

[clearguy02]

Hi experts,

I have below script and I need to translate a full name to a login ID.

===========================================
while (<DATA>)
{
($last, $first) = split ("\s+", $_);
$login = $first[0] . $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================

Output should be:
===============
bsmith
jcarter
afisher
mlewis
=============

How can I modify the aboe script to get the desired output?

Thanks,
Rider.

 

[jl_post]

I have below script and I need to translate a
full name to a login ID.

===========================================
while (<DATA>)
{
($last, $first) = split ("\s+", $_);
$login = $first[0] . $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================

Output should be:
===============
bsmith
jcarter
afisher
mlewis
=============

How can I modify the aboe script to get the desired output?

Dear Rider,

First, know that just using split() with no parameters is almost the
same as:

split(/\s+/, $_)

Second, saying $first[0] does NOT give you the first letter of the
$first variable. Instead it gives you the first ELEMENT of the @first
ARRAY. To get the first letter of the $first variable, use substr()
instead, like this:

substr($first, 0, 1)

Therefore, I think this code will do exactly what you want:

while (<DATA>)
{
($last, $first) = split;
$login = substr($first, 0, 1) . $last;
print "$login\n";
}
__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================


I hope this helps, Rider.

-- Jean-Luc

 

[jl_post]

I forgot to mention:

You probably want to add the line:

$login = lc($login);

before the print() statement so that all your usernames come out in
lower-case letters.

 

[Keith Keller]

I have below script and I need to translate a full name to a login ID.

Try your script with

use strict;
use warnings;

At least two of the reported errors are relevant to why you're not
getting the output you desire.

===========================================
while (<DATA>)
{
($last, $first) = split ("\s+", $_);
$login = $first[0] . $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================

--keith

 

[John W. Krahn]

I have below script and I need to translate a full name to a login ID.

===========================================
while (<DATA>)
{
($last, $first) = split ("\s+", $_);
$login = $first[0] . $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================

Output should be:
===============
bsmith
jcarter
afisher
mlewis
=============

How can I modify the aboe script to get the desired output?

while ( <DATA> ) {
my ( $last, $login ) = map lc, split;
substr( $login, 1 ) = $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy



John

 

[Josef Moellers]

I have below script and I need to translate a
full name to a login ID.

===========================================
while (<DATA>)
{
($last, $first) = split ("\s+", $_);
$login = $first[0] . $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================

Output should be:
===============
bsmith
jcarter
afisher
mlewis
=============

How can I modify the aboe script to get the desired output?

Dear Rider,

First, know that just using split() with no parameters is almost the
same as:

split(/\s+/, $_)

Second, saying $first[0] does NOT give you the first letter of the
$first variable. Instead it gives you the first ELEMENT of the @first
ARRAY. To get the first letter of the $first variable, use substr()
instead, like this:

substr($first, 0, 1)

Therefore, I think this code will do exactly what you want:

while (<DATA>)
{
($last, $first) = split;
$login = substr($first, 0, 1) . $last;
print "$login\n";
}
__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy

Dear Jean-Luc,

Please (pretty please, with sugar on top, as my cousing from down under
used to say) TRY YOUR SOLUTIONS BEFORE POSTING (this is your second
reply in sequence which falls short of this simple requirement)!
Your solution DOES NOT "do exactly what you want", as a simple test will
reveal, because the output will be

BSmith
JCarter
AFisher
MLewis

Note the difference? (Hint: look at the case of the letters)

Rider will also have to lc the strings or the entire result:

while (<DATA>)
{
($last, $first) = split;
$login = lc substr($first, 0, 1) . $last;
print "$login\n";
}
__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy

Josef

 

[Peter Wyzl]

Hi experts,

I have below script and I need to translate a full name to a login ID.

===========================================
while (<DATA>)
{
($last, $first) = split ("\s+", $_);
$login = $first[0] . $last;
print "$login\n";
}

__DATA__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy
=======================================

Output should be:
===============
bsmith
jcarter
afisher
mlewis
=============

How can I modify the aboe script to get the desired output?

My offering to the gods...

use strict;
use warnings;

while (<DATA>){
my $login = lc("$2$1") if m/(\S+)\s+(\w)/;
print "$login\n";
}
<STDIN>;
__END__
Smith Bob
Carter John
Fisher Ann
Lewis Maggy



P

 

[Peter Wyzl]

news:[email protected]...

while (<DATA>){
my $login = lc("$2$1") if m/(\S+)\s+(\w)/;
print "$login\n";
}
<STDIN>;

The <STDIN> is just for my own testing (in Windows XP....)

P