Search many PPM's (ActivePerl packages) and printing multi line results into a file | The blog of Oren Maurer. meorero
and put each after the search inflammatory breast cancer query of ActiveState PPM, as follows: (Note this is for running from DOS): ppm search App::Ack ppm search Carp ppm search Class::Adapter ... ppm search Test::Exception ppm search Test::NoWarnings ppm search Test::NeedsDisplay
======================================= #!/usr/bin/perl -w use strict; use Cwd; use File:: inflammatory breast cancer Path; my $cur_dir = getcwd(); my $pkg_file = "require_for_padre.txt"; my $dest_file = "ppm_output_for_padre.txt"; my $line = ""; my $ppm_search_line = ""; my $total_lines = 0; my $actual_lines = 0; ## my $cur_line = 0; ## Get the answer for the ppm search: my $get_ppm_search_answer = ""; opendir(DIRHANDLE, "$cur_dir") inflammatory breast cancer or die "couldn't open $cur_dir: $!"; print "Openned $cur_dir\n"; open (PKG_FILE, inflammatory breast cancer "$pkg_file") or die "couldn't open $pkg_file: $!"; print "Openned $pkg_file\n"; print "----------------------------------------------------------\n"; # create a blank file open (DST_FILE, ">$dest_file"); close (DST_FILE); print "\t\t\tcreated $dest_file\n"; print "----------------------------------------------------------\n"; open (DST_FILE, ">$dest_file"); while (<PKG_FILE>) { $total_lines = $total_lines +1 ; ## $cur_line = 0; my $ppm_search_line = $_; #print "\n\n\n\n\$line $total_lines :\t $line\n"; print "$ppm_search_line"; #system("$ppm_search_line"); print for qx{$ppm_search_line}; } close (DST_FILE); close (PKG_FILE); closedir(DIRHANDLE); print "\$total_lines are: $total_lines \n";
This entry was posted on פברואר 11, 2009 at 4:34 PM and is filed under Perl , Uncategorized . You can follow any responses inflammatory breast cancer to this entry through the RSS 2.0 feed. You can leave a response , or trackback from your own site.
עקוב אחרי 'The blog of Oren Maurer. meorero'
%d בלוגרים אהבו את זה:
and put each after the search inflammatory breast cancer query of ActiveState PPM, as follows: (Note this is for running from DOS): ppm search App::Ack ppm search Carp ppm search Class::Adapter ... ppm search Test::Exception ppm search Test::NoWarnings ppm search Test::NeedsDisplay
======================================= #!/usr/bin/perl -w use strict; use Cwd; use File:: inflammatory breast cancer Path; my $cur_dir = getcwd(); my $pkg_file = "require_for_padre.txt"; my $dest_file = "ppm_output_for_padre.txt"; my $line = ""; my $ppm_search_line = ""; my $total_lines = 0; my $actual_lines = 0; ## my $cur_line = 0; ## Get the answer for the ppm search: my $get_ppm_search_answer = ""; opendir(DIRHANDLE, "$cur_dir") inflammatory breast cancer or die "couldn't open $cur_dir: $!"; print "Openned $cur_dir\n"; open (PKG_FILE, inflammatory breast cancer "$pkg_file") or die "couldn't open $pkg_file: $!"; print "Openned $pkg_file\n"; print "----------------------------------------------------------\n"; # create a blank file open (DST_FILE, ">$dest_file"); close (DST_FILE); print "\t\t\tcreated $dest_file\n"; print "----------------------------------------------------------\n"; open (DST_FILE, ">$dest_file"); while (<PKG_FILE>) { $total_lines = $total_lines +1 ; ## $cur_line = 0; my $ppm_search_line = $_; #print "\n\n\n\n\$line $total_lines :\t $line\n"; print "$ppm_search_line"; #system("$ppm_search_line"); print for qx{$ppm_search_line}; } close (DST_FILE); close (PKG_FILE); closedir(DIRHANDLE); print "\$total_lines are: $total_lines \n";
This entry was posted on פברואר 11, 2009 at 4:34 PM and is filed under Perl , Uncategorized . You can follow any responses inflammatory breast cancer to this entry through the RSS 2.0 feed. You can leave a response , or trackback from your own site.
עקוב אחרי 'The blog of Oren Maurer. meorero'
%d בלוגרים אהבו את זה:
No comments:
Post a Comment