perl loop keeps getting stuck


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting perl loop keeps getting stuck
# 1  
Old 01-13-2010
perl loop keeps getting stuck

I am using a Perl script to open a series of files in a loop, separate the paragraph into lines, and output the lines into a new file. The code works perfectly fine, except when the source file is over a certain size the loop gets stuck and won’t move on to the next file. It still does what it is supposed to do to the file, however it just won’t continue. This is the code that I’m using:
Code:
#!/usr/bin/perl -w
$f="gchistory.dat";
$c=`wc -l < $f`;
$start = 1;
$end = $c;
$skip = 1;
for($i=$start; $i<=$end; $i+=$skip) {
    open(FILE, "enc$i.dat");
    $inline=<FILE>;
    my @values = split(/ ~ /, $inline);
    foreach my $val (@values) {
                open(EFILE, ">e_$i.dat");
                $count = ($inline =~ tr/~//);
                $jstart = 1;
                $jend = $count;
                $jskip = 1;
                for($j=$jstart; $j<=$jend; $j+=$jskip) {
                    printf(EFILE "@values[$j]\n");
                }
                close(EFILE);
    }
    close(FILE);
}
system("rm -f enc*.dat");

Does anyone know of any way that I could force the code to move on to the next file so that I don’t have to kill the code and start again at a later point in the loop? Thanks!

Last edited by Scott; 01-13-2010 at 05:43 PM.. Reason: Please use code tags
Login or Register to Ask a Question

Previous Thread | Next Thread

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl while loop for each

I have the below scenario in perl cd $FIDE_RECEIVE ; # see the files that start with feedmgr.usfed.tips $CycleDate = &fi_get_curr_date('US','NIGHTLY_CYCLE','PROCESS'); head -1 GNM_GEO.DAT.EMBS* |grep -v GNM_GEO.DAT.EMBS | awk '{$4 " " $5}' output for above command :... (3 Replies)
Discussion started by: ptappeta
3 Replies

2. Shell Programming and Scripting

While Loop in Perl

Hi All I am reading the file using while loop in Perl someting like while (my $s=<F>){ chomp($s); .. .. .. } What i want to do is after the chomp statement i used some condition, if the condition is met then it should move forward otherwise it should read the new line. How Can it be... (4 Replies)
Discussion started by: parthmittal2007
4 Replies

3. Shell Programming and Scripting

until loop Perl

I am trying to print out a section of a file begining at the start and printng until a character is found. My code and input file are below. This code is printing out every line except for the line with the character which is not what I want the out put should be a file with numbers 1-4. ... (3 Replies)
Discussion started by: cold_Que
3 Replies

4. Shell Programming and Scripting

Noob stuck - where do I put my loop

I'm a noob working on a script to take 3 user inputs. One of them is simply a variable: "poolname". The other 2 are cases: "groupa/groupb" and "enable/disable". "groupa" and "groupb" reference 2 files - groupa.txt or groupb.txt. These files simply consist of a list of server IP addresses and port... (2 Replies)
Discussion started by: *nixnoob
2 Replies

5. Shell Programming and Scripting

PERL: an OR inside an IF .. im stuck

Hi all, I basically have an if statement that says if you have more than 5 changes you need to have the force flag set to 1 to proceed. like this if ((($Changes > 5) && ($force == 1)) || (($nChanges > 0) && ($Changes < 6))) { I now need to allow the force flag to be either 1 or 2 to... (2 Replies)
Discussion started by: rethink
2 Replies

6. Shell Programming and Scripting

Perl - pass shell-vars into perl for input loop

I need to process a file line-by-line using some value from a shell variable Something like:perl -p -e 's/$shell_srch/$shell_replace/g' input.txt I can't make the '-s' work in the '-p' or '-n' input loop (or couldn't find a syntaxis.) I have searched and found... (4 Replies)
Discussion started by: alex_5161
4 Replies

7. Shell Programming and Scripting

Script Stuck In Loop

Hi all! Im trying to get this script to check for folders in a year/month/day folder structure and if the day doesnt exist then it makes the day. It will also make sure all of the days before todays date exist as well. This script assumes that the month and year folder already exist. It works... (3 Replies)
Discussion started by: Grizzly
3 Replies

8. Shell Programming and Scripting

stuck in perl cgi to upload a file to server

hi, i m working on a perl cgi script which uploads a file to the server. i m stuck. i hav written the errors. plz help. Sachin Kaw ______________________________________________________________________ #!/usr/bin/perl -w use CGI; use CGI qw(:standard); use strict; use POSIX... (4 Replies)
Discussion started by: sachin_kaw
4 Replies

9. UNIX for Dummies Questions & Answers

Menu function stuck in a loop?

I having problem when I call this cleanupmenu function within a script. It continuously loops and goes to selection * That wasn't a valid selection. I have to kill it everytime to stop it. What am I doing wrong. I use this function menu in several other scripts and I don't have this problem at... (2 Replies)
Discussion started by: darthur
2 Replies
Login or Register to Ask a Question