Re: perl command line prompts

<disclaimer>Code untested</disclaimer>
Quick list of things that hit me:

Are you sure you want local($promptString,$defaultValue) instead of my ($promptString,$defaultValue) ?
$| needs to be either localized (best) or turned on and off immediately around the print in question. How it is used now is equivalent to putting $| = 1; at the top of your posted code segment.
Ideally, the three argument form of open leaves less ambiguity.
~~As your record separator is set to the same thing you are s///ing for, why not use chomp and be done with it?~~ I rethought this one, my idea would not work.
I know advocating a One True Brace Style will spark a holy war. But as it stands, it is difficult to tell at a glance what is inside what block.
Have you split $count = (($change = $_) =~ s/(\x33\x33\x39\x39.*?\x00)/"\x00" x length($1)/e); up into its constituent parts to verify it's doing what you want?
Have you injected print STDERR $somevar at strategic locations in your code? You've stated that it fails after the first y user input. This would answer how far after the user input it fails (which could give some important clues).

Comment on Re: perl command line prompts

Replies are listed 'Best First'.
Re^2: perl command line prompts by pccode (Novice) on May 16, 2005 at 06:35 UTC
I've tried your suggestions and the program still stalls at the same point. As for the "$count =((...." line, that's probably the only part of the program that I'm sure is working properly. The $count variable takes the form of "1" if a change is made and stays null if no changes are made. If a match is found, the $change variable copies the $_ variable and then all of the $change variable characters are replaced with 00s. I think that there is some kind of conflict between the loop and the promptUser subroutine. I've tried using the promptUser command within a while loop and a foreach loop and it only works once in each of them and then stalls. However, the promptUser command works fine outside of a loop. Where is the conflict? Why is this happening?	[reply]

Replies are listed 'Best First'.

Re^2: perl command line prompts
by pccode (Novice) on May 16, 2005 at 06:35 UTC

I've tried your suggestions and the program still stalls at the same point. As for the "$count =((...." line, that's probably the only part of the program that I'm sure is working properly. The $count variable takes the form of "1" if a change is made and stays null if no changes are made. If a match is found, the $change variable copies the $_ variable and then all of the $change variable characters are replaced with 00s. I think that there is some kind of conflict between the loop and the promptUser subroutine. I've tried using the promptUser command within a while loop and a foreach loop and it only works once in each of them and then stalls. However, the promptUser command works fine outside of a loop. Where is the conflict? Why is this happening?

[reply]