Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Help with stdout.... in perl..

by vitoco (Friar)
on Nov 13, 2009 at 15:23 UTC ( #806972=note: print w/replies, xml ) Need Help??

in reply to Help with stdout.... in perl..

Hola Michael. ˇBienvenido!

As it was said, you must move the $fecha assignment just before the find(), but I guess a chomp should be needed:

my $fecha = `date +%F--%k:%M`; chomp($fecha);

A sub may appear anywhere in your code, but it will be used when it is called, so your $fecha assignment is logically misplaced. If you wanted to get a new date for each processed file, put the previous lines inside a subroutine.

Why are you using STDOUT to create new files? Just recycle FILE or use another fd, and close() it before chown().

Also, use strict and use warnings when writing and testing new code. I've learned too much from them.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://806972]
and cookies bake in the oven...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2017-12-17 11:08 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (464 votes). Check out past polls.