Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- open (FILE1,'/Users/vgupta/code/data3') or die "can't open";
- while (<FILE1>) {
- chomp;
- $input_output_str = "";
- if (/Startpoint:/) {
- $input_output_str .= $_;
- while (<FILE1>) {
- last if /Path Group:/;
- chomp;
- $input_output_str .= $_;
- }
- print $input_output_str . "\n";
- $input_output_str = "";
- }
- }
Add Comment
Please, Sign In to add comment