Help needed for perl rookie

From: GRLCOPM (grlcopm_at_pacbell.net)
Date: 12/27/04 

Date: Mon, 27 Dec 2004 21:44:25 GMT

I am new to perl, but so far have had decent success in writing/modifying
code to do what I want to do. However I am stuck trying to modify the
following code. I am sure the solution is quite simple, but I can't
completely figure out what this piece of code does. I think it is just
matching up a data pattern but this is an area I am unfamiliar with.

All I want to do is change the format of the data file from example #1 to
example #2 and need this section of code to work with the new format. I
would be grateful for any help provided in understanding what this piece of
code does and suggestions on the modification needed.

If more information or a larger chunk of the code is needed please let me
know and I will provide.

EXAMPLE #1 - Current format of data file:
0000000050 20041227 0000000003 'my-page.shtml'
0000000054 20041227 0000000004 'another-page.shtml'
0000000020 20041227 0000000003 'yet-another-page.shtml'

EXAMPLE #2 - New format of data file:
0000000050|20041227|0000000003|my-page.shtml
0000000054|20041227|0000000004|another-page.shtml
0000000020|20041227|0000000003|yet-another-page.shtml

Current code that reads original data format:

&LockOpen (COUNT,"$AccessFile");
$location = tell COUNT;
while ($line = <COUNT>) {
  if (($acc,$day,$dayacc,$uri) = ($line =~ /^(\d+) (\d+) (\d+) '(\S+)'$/)) {
        if ($uri eq $doc_uri) {
            last;
        }
    }
    last if ($uri eq $doc_uri);
    $location = tell COUNT;
    $acc = 0;
    $dayacc = 0;
}

Thanks!

PM

Relevant Pages

  • Re: Using dates during mail merge
    ... The other thing that might be causing problems here is that, regardless of how the DATE field nested in the ASK field is formatted, the user will need to enter the date in the format set up in their regional options (or any other format where the month and day are not ambiguous. ... I was however remiss in not changing the field name from that in my data file as this added some unwelcome confusion:( ... You included 'MyDate' and 'Date2' in your ...
    (microsoft.public.word.mailmerge.fields)
  • Re: 03 versus 97/2002 version
    ... The new format is not backwards compatible so proceed at your own risk. ... File->new-outlook data file. ... dragging to the new calendar FOLDER works best. ...
    (microsoft.public.outlook)
  • Re: Using dates during mail merge
    ... If you have some other format but January eg january or JANUARY you will ... Word MVP web site http://word.mvps.org ... that in my data file as this added some unwelcome confusion:(-- ... You included 'MyDate' and 'Date2' in your ...
    (microsoft.public.word.mailmerge.fields)
  • Re: Help needed for perl rookie
    ... > Newsgroups: comp.lang.perl.misc ... However I am stuck trying to modify the ... >> example #2 and need this section of code to work with the new format. ... It reads the data file that is in this format: ...
    (comp.lang.perl.misc)
  • Re: can anybody help me whts wrong in my program
    ... read the data file, specifying one data structure to read ... as delimiting data items for CHARACTER fields (blanks do delimit ... That's not the way format works. ... variable length character fields, ...
    (comp.lang.fortran)