Changeset 12636

Timestamp:

Mar 28, 2007, 9:53:03 AM (19 years ago)

Author:

Paul Price

Message:

Making script able to parse long long long lists of stuff to process.

File:

• trunk/ippScripts/scripts/ipp_serial_register.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_serial_register.pl

@@ -35 +35 @@
 
 # Phase 0 imfile processing
-my $list;
 {
     my $command = "$regtool -pendingimfile -dbname $dbname"; # Command to run
@@ -41 +40 @@
         run( command => $command, verbose => 1 );
     die "Unable to get phase 0 imfile list: $error_code\n" if not $success;
-    $list = parse_md_list( $mdcParser->parse( join( '', @$stdout_buf ) ) ) or
-        die "Unable to parse output from regtool.\n";
-}
 
-foreach my $item (@$list) {
-    my $exp_tag = $item->{exp_tag};
-    my $class = $item->{class};
-    my $class_id = $item->{class_id};
-    my $uri = $item->{uri};
-    
-    my $command = "$register_imfile --exp_tag $exp_tag --class $class --class_id $class_id --uri $uri --dbname $dbname";
-    $command .= " --workdir $workdir" if defined $workdir;
-    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run( command => $command, verbose => 1 );
-    die "Unable to do phase 0 imfile processing on $exp_tag $class_id: $error_code\n" if not $success;
+    my @whole = split /\n/, join( '', @$stdout_buf );
+    my @single = ();
+
+    while ( scalar @whole > 0 ) {
+        my $value = shift @whole;
+        push @single, $value;
+        if ($value =~ /^\s*END\s*$/) {
+            push @single, "\n";
+
+            my $list = parse_md_list( $mdcParser->parse( join( "\n", @single ) ) ) or
+                die "Unable to parse output from regtool.\n";
+
+            foreach my $item (@$list) {
+                my $exp_tag = $item->{exp_tag};
+                my $class = $item->{class};
+                my $class_id = $item->{class_id};
+                my $uri = $item->{uri};
+                
+                my $command = "$register_imfile --exp_tag $exp_tag --class $class --class_id $class_id --uri $uri --dbname $dbname";
+                $command .= " --workdir $workdir" if defined $workdir;
+                my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                    run( command => $command, verbose => 1 );
+                die "Unable to do phase 0 imfile processing on $exp_tag $class_id: $error_code\n" if not $success;
+            }
+
+
+            @single = ();
+
+        }       
+    }
 }
 
@@ -64 +79 @@
         run( command => $command, verbose => 1 );
     die "Unable to get phase 0 exposure list: $error_code\n" if not $success;
-    $list = parse_md_list( $mdcParser->parse( join( '', @$stdout_buf ) ) ) or
-        die "Unable to parse output from regtool.\n";
+
+    my @whole = split /\n/, join( '', @$stdout_buf );
+    my @single = ();
+
+    while ( scalar @whole > 0 ) {
+        my $value = shift @whole;
+        push @single, $value;
+        if ($value =~ /^\s*END\s*$/) {
+            push @single, "\n";
+
+            my $list = parse_md_list( $mdcParser->parse( join( "\n", @single ) ) ) or
+                die "Unable to parse output from regtool.\n";
+
+            foreach my $item (@$list) {
+                my $exp_tag = $item->{exp_tag};
+                
+                my $command = "$register_exp --exp_tag $exp_tag --dbname $dbname";
+                $command .= " --workdir $workdir" if defined $workdir;
+                my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                    run( command => $command, verbose => 1 );
+                die "Unable to do phase 0 exposure processing on $exp_tag: $error_code\n" if not $success;
+            }
+
+            @single = ();
+
+        }       
+    }
 }
 
-foreach my $item (@$list) {
-    my $exp_tag = $item->{exp_tag};
-    
-    my $command = "$register_exp --exp_tag $exp_tag --dbname $dbname";
-    $command .= " --workdir $workdir" if defined $workdir;
-    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run( command => $command, verbose => 1 );
-    die "Unable to do phase 0 exposure processing on $exp_tag: $error_code\n" if not $success;
-}
 
 END {