perl loop keeps getting stuck Post: 302386801

Sponsored Content

Top Forums Shell Programming and Scripting perl loop keeps getting stuck Post 302386801 by renthead720 on Wednesday 13th of January 2010 03:19:32 PM

01-13-2010

Registered User

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

renthead720

View Public Profile for renthead720

Find all posts by renthead720

9 More Discussions You Might Find Interesting

1. 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. 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...

3. 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...

4. 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...

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...

6. 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...

7. 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. ...

8. 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...

9. 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 :...

LEARN ABOUT DEBIAN

voice_set_playmode

voice_set_playmode(3alleg4)					  Allegro manual				       voice_set_playmode(3alleg4)

NAME

       voice_set_playmode - Adjusts the loop status of the specified voice. Allegro game programming library.

SYNOPSIS

       #include <allegro.h>

       void voice_set_playmode(int voice, int playmode);

DESCRIPTION

       Adjusts the loop status of the specified voice. This can be done while the voice is playing, so you can start a sample in looped mode (hav-
       ing set the loop start and end positions to the appropriate values), and then clear the loop flag when you want to  end	the  sound,  which
       will  cause it to continue past the loop end, play the subsequent part of the sample, and finish in the normal way. The mode parameter is a
       bitfield containing the following values:

       PLAYMODE_PLAY

       Plays the sample a single time. This is the default if you don't set the loop flag.

       PLAYMODE_LOOP

       Loops repeatedly through the sample, jumping back to the loop start position upon reaching the loop end.

       PLAYMODE_FORWARD

       Plays the sample from beginning to end. This is the default if you don't set the backward flag.

       PLAYMODE_BACKWARD

       Reverses the direction of the sample. If you combine this with the loop flag, the sample jumps to the loop end position upon  reaching  the
       loop start (ie. you do not need to reverse the loop start and end values when you play the sample in reverse).

       PLAYMODE_BIDIR

       When  used  in  combination  with  the  loop flag, causes the sample to change direction each time it reaches one of the loop points, so it
       alternates between playing forwards and in reverse.

SEE ALSO

Allegro 							   version 4.4.2				       voice_set_playmode(3alleg4)