recursion - Perl opening files from recursive directory -

-

so program supposed recursively go through directory , each file in directory, open file , search words "error" "fail" , "failed." should write instances these words occur, rest of characters on line after words, out file designated in command prompt. have been having trouble making sure program performs search on files found in directory. right recurse through directory , creates file write out to, however, not seem searching through files found in recursing. here code:

#!/usr/local/bin/perl  use warnings; use strict; use file::find;   $argument2 = $argv[0]; $dir = "c:/program/scripts/directory1"; #directory search through  open file, ">>$argument2" or die $!;   #file write out  $unsuccessful = 0; @errors = (); @failures= (); @failures2 = (); @name = (); @file; $file;  $filename;  opendir(dir, $dir) or die $!;  while($file = readdir(dir)){ next if($file =~ m/^\./);    foreach(0..$#file){     print $_;     open(filelist, '<', $_);          while(<filelist>){      if (/unsuccessful/i){         $unsuccessful = 1;     }     if(/error/ ){         push(@errors, "error in line $.\n");         print  "\t\terror in line $.:$1\n" if (/error\s+(.+)/);      }     if(/fail/i ){         push(@failures, "error in line $.\n");         print file "error in line $.:$1\n" if (/fail\s+(.+)/);      }     if(/failed/i ){         push(@failures2, "error in line $.\n");         print file "error in line $.:$1\n" if (/failed\s+(.+)/);      }      if ($unsuccessful){      }      }     close filelist;       } }  closedir(dir); close file;

so, clarify, problem search contained in "while()" loop not seem executing on files found in directory recursively. comments/suggestions/help can give on why may happening helpful. new perl sample code me understand trying say. thank much.

typically, when want on recursive files, start find2perl . -print generates boilerplate me wanted function can modify whatever want.

for example

# traverse desired filesystems file::find::find({wanted => \&wanted}, '.'); exit; sub wanted {     return unless -f $file::find::name;     return unless -r $file::find::name;     open (f,"<",$file::find::name) or warn("error opening $file::find::name : $!\n");      while(<f>) {         if(m/error/) { print; }         if(m/fail/) { print; }     }    }

Comments

Post a Comment

Popular posts from this blog

django - How can I change user group without delete record -

-
on website user have 1 group. , user can change group. it's made user.groups.clear() and user.groups.add(new_group) but it's not efficient, because there 2 sql query: delete, insert. how can change group update query? user , group related each other using manytomanyfield . means intersection table exists relating both entities, , if don't specify model map (using through attribute) django creates 1 you. looking @ sources django.contrib.auth.models see that's case. fortunatly, can access intermediary model using through attribute of manager (in case, user.groups.through ). can use regular model. example: >>> alice = user.objects.create_user('alice', 'alice@example.com', 'alicepw') >>> employee = group.objects.create(name='employee') >>> manager = group.objects.create(name='manager') >>> alice.groups.add(employee) >>> alice.groups.all() [<group: employee...
Read more

java - Need to add SOAP security token -

-
i need set custom soap header attribute on jax-ws generated webservice client. case webservice calls must go through proxy server requiring specific token (recieved web request header) present in soap request header. e.g.: 1 carserviceservice service = null; 2 service = new carserviceservice(new url(url), new qname(qname); 3 carserviceendpoint port = service.getcarserviceport(); it seems in line 3 wsdl retrieved , call fails due missing security token. 1 point direction on how done? a detailed example has been mentioned here: creating , deploying jax-ws web service on tomcat 6 this article shows how create , use security token .
Read more

java - EclipseLink JPA Object is not a known entity type -

-
i have strange problem eclipselink , object want persist. have 1 object (keypointlistimpl) stores object keypointimpl in list. persisting keypointimpl objects works great if try persist keypointlistimpl object java.lang.illegalargumentexception says object keypointimpl isn't known entity type. here keypointimpl code: @entity @table(name="keypoints") public class keypointimpl implements keypoint { @id @generatedvalue(strategy = generationtype.identity) private int id; @enumerated(enumtype.string) private detectortype keypointtype; private float x; private float y; private float size; private float angle; private float response; private int octave; private int classid; ... } here keypointlistimpl code: @entity @table(name="keypointlists") public class keypointlistimpl implements keypointlist { @id @generatedvalue(strategy = generationtype.identity) private int id; @onetoone(cascade={ca...
Read more