Author: sparky
Date: Thu Mar 11 01:05:47 2010
New Revision: 11230
Modified:
toys/rsget.pl/t/prepare
Log:
- write test.list and .orig list for comparision
Modified: toys/rsget.pl/t/prepare
==============================================================================
--- toys/rsget.pl/t/prepare (original)
+++ toys/rsget.pl/t/prepare Thu Mar 11 01:05:47 2010
@@ -3,13 +3,34 @@
use strict;
use warnings;
-while ( <> ) {
- if ( /#\s*src:\s*(.+)/ ) {
- print;
- print $1 . "\n";
- } elsif ( /^# invalid uri:/ ) {
- # nothing here
- } elsif ( /^(#.*|)$/ ) {
- print;
+open F_LIST, ">", "test.list";
+open F_ORIG, ">", "test.list.orig";
+
+while ( my $file = shift @ARGV ) {
+ open F_IN, "<", $file or die;
+
+ my $src = "# source: $file\n";
+ print $src;
+ print F_LIST $src;
+ print F_ORIG $src;
+
+ while ( <F_IN> ) {
+ print F_ORIG $_;
+ if ( /#\s*src:\s*(.+)/ ) {
+ print F_LIST $_;
+ print F_LIST $1 . "\n";
+ } elsif ( /^# invalid uri:/ ) {
+ # nothing here
+ } elsif ( /^(#.*|)$/ ) {
+ print F_LIST $_;
+ }
}
+
+ close F_IN;
+
+ print F_LIST "\n";
+ print F_ORIG "\n";
}
+
+close F_LIST and print "wrote test.list\n";
+close F_ORIG and print "wrote test.list.orig\n";
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
