Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Code Maintainability

by mpeever (Friar)
on Dec 03, 2008 at 22:24 UTC ( #727817=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    Something something = new Something();
  2. or download this
    Something something = new Something(value1, value2, value3);
  3. or download this
    # We need to ensure that the widget press is fully  
    # stopped before we disconnect the syrup tanks, because
    # the nozzles can leak syrup for at least 30 seconds 
    # after the hoses are disconnected.
  4. or download this
    if ($DEBUG) { print STDERR "Debug: some value"; }
  5. or download this
    print STDERR "Debug: some value" if $DEBUG;
  6. or download this
    foreach my $line (@lines) {
      print STDERR "$line\n;"
  7. or download this
    print STDERR join("\n", @lines), "\n";
  8. or download this
    print STDERR Dumper \@lines;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://727817]
Approved by kyle
Front-paged by GrandFather
[Lady_Aleena]: And the env variable $HOME doesn't work either. !@#$
[shmem]: no, that's a shell feature. Use $ENV{HOME}
[marioroy]: my $ans = qx{ find \$HOME -name "*.pl" -exec ls -l {} \\; };
[marioroy]: must backslash $ inside qx
[Lady_Aleena]: I haven't written perl for a while, I've been trying to do things at the command line. I'm having to relearn a lot.
[marioroy]: LA can you post the qx find again
[Lady_Aleena]: Things I would have written a script for while I was on Windows, I can run simply on the command line.
[Lady_Aleena]: marioroy, my @music_times = qx(find ~/Music/Albums/ -type f -iname '*.mp3' -exec mp3info -p "%S\n" {} \;); #unfixed

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2017-04-23 21:07 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (432 votes). Check out past polls.