Hi, I am new to perlmonks but have found many useful tidbits in the past! I have an issue and would appreciate assistance.

I would like to pipe filenames to a perl script, and then obtain confirmation from the user before acting on each file. The problem is, while I can get the filenames no problem, the script simply blows past the console read! I've tried clearing ARGV, and flushing stdin, but to no avail.

Here's what a sample session would look like from the command prompt:

$ find . -name (*.html) | xargs grep -l foo | ./myscript.pl
Do you wish to modify file1.html? (y/n) n
Do you wish to modify file2.html? (y/n) y
file2.html modified

and in myfile.pl I would have this:

#!/usr/bin/perl
@filelist = <>;
{ local $/; <STDIN> }
for (@filelist) {
   chomp;
   print "Do you wish to modify $_? (y/n) ";
   $ans = uc(<STDIN>);
   print "$_ modified\n" if substr($ans, 0, 1) eq "Y"
}

[download]

Thanks!

In reply to Pipe filenames, then get user confirmation by cniggeler

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.