Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Reason for Find invalid switch error

by rrrrr (Novice)
on Sep 18, 2012 at 07:10 UTC ( #994208=perlquestion: print w/ replies, xml ) Need Help??
rrrrr has asked for the wisdom of the Perl Monks concerning the following question:

I need reason for Find Invalid switch error for the below code

#!/usr/bin/perl print("find /D/ARCHIVE/BIOS/PRTFILES -mtime +1 -exec rm -rf {} \\"); system("find /D/ARCHIVE/BIOS/PRTFILES -mtime +1 -exec rm -rf {} \\");

Comment on Reason for Find invalid switch error
Download Code
Re: Reason for Find invalid switch error
by choroba (Canon) on Sep 18, 2012 at 07:12 UTC
    Where is a semicolon? -exec should end in a semicolon.
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
Re: Reason for Find invalid switch error
by Anonymous Monk on Sep 18, 2012 at 07:17 UTC

    Do you see output after END?

    print "find /D/ARCHIVE/BIOS/PRTFILES -mtime +1 -exec rm -rf {} \\" __END__ find /D/ARCHIVE/BIOS/PRTFILES -mtime +1 -exec rm -rf {} \

    Is that valid linux command?

    I don't linux, but it doesn't look particularly valid to me

    Figure out how to work the linux command from linux shell, and then wrap it up in perl script

    Once you have a working command, for example, saved as you can use

     perl -MData::Dump -MIO::All -e " dd map { io($_)->all } @ARGV "  >

    to quote it properly for to give to system

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://994208]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2015-03-03 13:03 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (71 votes), past polls