About anything > Any perl programmers here? =) 

#!/usr/bin/perl
my (@arr,$i)=("The","Mage","Of","Chaos");
@arr[4,5]=("was","here=)");
print("@arr\n");
for($i=0; $i<=$#arr; $i++)
{
if($arr[$i]=~/([a-z]{1}a)/i)
  {
     print("yes!\n");
  }
else
  {
    print("no!\n");
  }
}

What is the output? =))

:confused:

=P

#!/usr/local/bin/perl

open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "WebAster Where my Faile";
while(<PASS>)
   {
   ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
   write();
   }
close(PASS);
exit 0;

18:19 [] private [WebAster] your code doesnt work ^^
18:19 [WebAster] private [] becouse this for unix ;)

And don't use compilers ^^

> WebAster

Its perl for windows topic ok? =)

:str:

up =)
come on people :) its an easy one

Have been trying to solve that one without the help of any software for about 5 mins. I give up! ))) Looks like my school knowledge of Quick Basic and Turbo Pascal ain't enough! )))

Its very similar to PHP  :ponder:

may be yes?%))

The Mage of Chaos was here=)
no!

Right? )

> The Mage of Chaos was here=)
> no!
>
> Right? )

nope =)

The Mage Of was here=)
no!

...?=)

> The Mage Of was here=)
> no!


nope =)

> The Mage of Chaos was here=)
this part is right, but what about the rest? :)

No!
No!
No!
No!
No!
No!

? :))

> Smile of Rain [7]   (24.02.06 18:45)
> No!
> No!
> No!
> No!
> No!
> No!

stop guessing :DDDD

wrong answer :)

:tease:

then

yes!
yes!
yes!
yes!
yes!
yes!

or

No!
No!
No!
No!
No!
yes!

?=))

:laugh: