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 {} \\");

Replies are listed 'Best First'.
Re: Reason for Find invalid switch error
by choroba (Bishop) 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 a soft breeze sighs...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2018-03-17 13:31 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (224 votes). Check out past polls.