Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re^3: Perl Best Practices book: is this one a best practice or a dodgy practice?

by fizbin (Chaplain)
on Sep 05, 2005 at 12:08 UTC ( #489207=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    # Standard open for input, open for output code
  2. or download this
    if ($infile eq $outfile)
      die "Same filename given for both input and output!";
  3. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
    map{y/X_/\n /;print}map{pop@$_}@/for@/

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://489207]
[choroba]: I loved McVitie's, but stopped buying them when they started using palm oil
[1nickt]: ++choroba for walking the walk
[choroba]: My children don't want to eat "dead monkey" biscuits

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2017-11-20 13:02 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (286 votes). Check out past polls.