Comparison Value

[ThERiZla]

Hi,

I want find in an array a value start by this character : "-".
This is two examples of value in my array, I want find: -c, -s .
I use a while to scan my array, but I don't know how compare my values to find
the good one.

Suggestions and/or examples anyone ?

Thanks

 

[Gunnar Hjalmarsson]

I want find in an array a value start by this character : "-".
This is two examples of value in my array, I want find: -c, -s .
I use a while to scan my array,

Do you? How do you do that?

but I don't know how compare my values to find the good one.

push @values, $_ if substr($_, 0, 1) eq '-';

 

[Jay Tilton]

(e-mail address removed) (ThERiZla) wrote:

: I want find in an array a value start by this character : "-".
: This is two examples of value in my array, I want find: -c, -s .
: I use a while to scan my array, but I don't know how compare my values to find
: the good one.

Sounds like you're trying to recognize switches passed in from the command
line. The Getopt::Std module would be useful.

 

[pkent]

I want find in an array a value start by this character : "-".
This is two examples of value in my array, I want find: -c, -s .
I use a while to scan my array, but I don't know how compare my values to find
the good one.

Suggestions and/or examples anyone ?

my @foo = qw(-c cheap as -s chips);
foreach (@foo) {
if (index($_, '-') == 0) {
print "Found the item $_\n";
# or do whatever else you want...
}
}
__END__

That prints:

Found the item -c
Found the item -s

on my machine.

[ But as pointed out by another poster, if you're parsing command line
options you should use Getopt::Std or Getopt::Long unless you have a
_really_ good reason not to (e.g. you're trying to implement a drop-in
replacement for something with unusual option syntax, such as tar(1) or
the much more unusual usfdump(1M)) ]

P

 

[Anno Siegel]

Hi,

I want find in an array a value start by this character : "-".
This is two examples of value in my array, I want find: -c, -s .
I use a while to scan my array, but I don't know how compare my values to find
the good one.

Suggestions and/or examples anyone ?

my @good_ones = grep /^-/, @array;

Anno