Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^5: REGEX omit dashes - simple but ...

by kennethk (Abbot)
on Apr 04, 2016 at 17:36 UTC ( #1159525=note: print w/replies, xml ) Need Help??


in reply to Re^4: REGEX omit dashes - simple but ...
in thread REGEX omit dashes - simple but ...

Those are the strings you are transforming, but it looks like you are struggling on extracting the your lines. What do your literal lines look like?

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

  • Comment on Re^5: REGEX omit dashes - simple but ...

Replies are listed 'Best First'.
Re^6: REGEX omit dashes - simple but ...
by wrkrbeee (Scribe) on Apr 04, 2016 at 17:45 UTC

    Not completely sure what 'literal lines" should mean to me, but ....

    #!/usr/bin/perl -w use strict; use warnings; use File::stat; use lib "c:/strawberry/perl/site/lib"; #This program will extract the header information in 10K and 10Q filin +gs #as well as file sizes. #Specify the directory containing the files that you want to read; #my $files_dir = 'C:\Rick Francis\Data\SEC Filings\Filing Doc'; my $files_dir = 'E:\research\audit fee models\filings\Test'; #Specify the directory containing the results/output; #my $write_dir = 'C:\Rick Francis\Data\SEC Filings\Header Data\Revised +\DataTest.txt'; my $write_dir = 'E:\research\audit fee models\filings\filenames\filen +ames.txt'; #Open the directory containing the files you plan to read; opendir(my $dir_handle, $files_dir) or die "Can't open directory $!"; #Initialize file counter variable; my $file_count = 0; #Loop for reading each file in the input directory; while (my $filename = readdir($dir_handle)) { next unless -f $files_dir.'/'.$filename; print "Processing $filename\n"; #Initialize the variable names. my $line_count=0; my $access_num=-99; my $cik=-99; my $form_type=""; my $form=""; my $report_date=-99; my $file_date=-99; my $name=""; #my $sic=-99; #my $sic1=-99; my $file_name=""; my $htm=""; my $url=""; my $slash='/'; #Open the input file; open my $FH_IN, '<',$files_dir.'/'.$filename or die "Can't open $filen +ame"; #Within the file loop, read each line of the current file; while (my $line = <$FH_IN>) { next unless -f $files_dir.'/'.$filename; if ($line_count > 500000) { last;} #The following steps obtain basic data from various lines in the file; if($line=~m/^\s*ACCESSION\s*NUMBER:\s*/m){$access_num=$1; $access_nu +m =~ tr/-//d;}
      Sorry for being ambiguous.

      By 'literal lines,' I meant your input stream. You are failing on extracting the accession numbers from the input file, so we need to know how those lines are formatted.


      #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1159525]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (1)
As of 2023-09-23 18:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?