Re: Short and easy way to write if...elsif syntax

[pvaldes]

my @array = ("linux", "milinus","Windows","windows","Linux");

foreach (@array){
 if (/((linux|Windows))/i){  print "This is $1 VM" . "\n"  }
 else                     {  print "no idea"       . "\n"  }
}

... mmmh, or even:

foreach (@array){/((linux|Windows))/i ? print "This is $1 VM\n": print "no idea\n"}

(in fact you don't need an array for this)

print "THIS is $^O\n";

Therefore you could still eliminate two or three characters:

foreach (@array){/(($^O|Windows))/i ? print "This is $1 VM\n": print "no idea\n"}

[slayedbylucifer]

thank you very much everyone for your time. I will be learning quite a few Perl feature which were discussed in this thread. thanks again.