topic Re: New to Perl in Operating System - Linux

New to Perl

Yvette Robinson — Thu, 31 Aug 2006 09:24:55 GMT

I need to specify
#If it's the inventory scanner set the scanner to upper case
Code:
If ($Scanner_Type eq 'inventory') {
$Scanner_Name = $UPPERCASE;
Is this about right?

Re: New to Perl

g33k — Thu, 31 Aug 2006 10:30:32 GMT

if you mean that if $Scanner_Type is inventory than it should be INVENTORY than this will be better
$Scanner_Type = ($Scanner_Type eq 'inventory')?uc($Scanner_Type):$Scanner_Type;

Re: New to Perl

Yvette Robinson — Thu, 31 Aug 2006 10:47:39 GMT

Couldn't I also have written it like this as well?
If ($Scanner_Type eq 'INVENTORY')?uc
$Scanner_Name = uc:$Scanner_Name

Re: New to Perl

James R. Ferguson — Thu, 31 Aug 2006 13:43:32 GMT

Hi Yvette:

# perl -le '$name="allcaps";$type="InVeNtOrY";$name=uc($name) if $type=~/inventory/i;print $name'

Regards!

...JRF...

Re: New to Perl

Alexander Chuzhoy — Thu, 31 Aug 2006 15:34:42 GMT

The answer to your second question is NO.
In general you have several ways to write a script in perl.
One more that achieves what you want:
$Scanner_Name=uc($Scanner_Name) if $Scanner_Name eq "inventory";