I'm trying to convert the timestamps in a .csv file to conventional dates to be used in a spreadsheet. Some of the timestamps are 9 digits and some are 10. Towards the end of the file there are multiple occurrences of the timestamps but it's not picking all of them up. Here is my code:
#!/usr/bin/perl -w



use strict;


my $source = "libsource.txt";
my $dest = "library2.txt";

open(SOURCE, "$source")||die;
open(DEST, ">$dest")||die;

my @contents=<SOURCE>;


my $day;

foreach my $stamp (@contents) {

        $stamp=~/\d{9,10}/g;

      my ($sec, $min, $hour, $mday, $mon, $year_off)=localtime($&);
      $mon=$mon+1;


     if ($mday<10) {
        $day="0".$mday;
     }  else {
        ($day=$mday);
     }

     if ($mon<10) {
        $mon="0".$mon;
     }

      my $year=$year_off+1900;
      my @filedate=($mon, $day, $year);
      my $conversion=join('/',@filedate);


      $stamp =~ s|$&|$conversion|;
      }




print DEST @contents;
close (SOURCE);
close (DEST);

[download]
Here is a piece of the original .csv source file: 
8897,17,0,99,8888,,0,0,1005,36405,ABCD,0,,1194116569,1000824,ABCD,Live
+ 

Presentation CAM2,Jenifer Smith ,60:00,Ch1 & 2,0,,0,0,0,3,0,,0,Reel 

#3,NDF,TOD,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197399969,1197399769
+,0,

0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,
+,,,

,,,
8898,17,0,99,8889,,0,0,1014,36406,ABCD,0,,1173207769,1000824,ABCD,Segm
+ent

s,Marcus,60:00,Ch1 & 2,0,,0,0,0,14,0,,0,Reel 

#1,DF,01:00:00:00,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197400130,119
+739

9769,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,
+0.0

00,,,,,,,,
8899,17,0,99,8890,,0,0,1023,36407,ABCD,0,,1193806800,1000665,,Buyout,,
+19:

00,Ch1 & 2,0,,0,0,0,2,0,,0,Reel 

1,NDF,1:00:00:00,,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197400324
+,0,

0,0,0,0,,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8900,17,0,99,8891,,0,0,1005,36408,ABCD,0,,1172413184,1000797,ppp,Skiin
+g,M

ountain,01:00:00,Ch1 & 2,0,4070,0,0,0,25,0,,0,Reel 

#4,DF,00:00:00,,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197897083,1
+169

216384,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.00
+0,0

.000,,,,,,,,
8901,17,0,99,8892,,0,0,1005,36409,ABCD,0,,1198248398,1000707,ttt,Natio
+nal 

Meeting,ppp,1:00:00,Ch1 & 2,0,4071,0,0,0,25,0,,0,Reel 

#1,NDF,1:00:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502505,
+109

3009598,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.0
+00,

0.000,,,,,,,,
8902,17,0,99,8893,,0,0,1005,36410,ABCD,0,,1198248398,1000707,,National
+ 

Meeting,ppp,1:00:00,Ch1 & 2,0,4072,0,0,0,25,0,,0,Reel 

#2,NDF,2:00:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502514,
+109

3009598,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.0
+00,

0.000,,,,,,,,

[download]
And here are the results: 
12/31/1969
8897,17,0,99,8888,,0,0,1005,36405,ABCD,0,,11/03/2007,1000824,ABCD,Live
+ Presentation CAM2,Jenifer Smith ,60:00,Ch1 & 2,0,,0,0,0,3,0,,0,Reel 
+#3,NDF,TOD,,,,,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197399969,119739976
+9,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.
+000,,,,,,,,
8898,17,0,99,8889,,0,0,1014,36406,ABCD,0,,03/06/2007,1000824,ABCD,Segm
+ents,Marcus,60:00,Ch1 & 2,0,,0,0,0,14,0,,0,Reel #1,DF,01:00:00:00,,,,
+,,,,,,0,,0,0,0.000,0.000,,,,,0,0,0,1197400130,1197399769,0,0,0,0,SUPE
+RVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8899,17,0,99,8890,,0,0,1023,36407,ABCD,0,,10/31/2007,1000665,,Buyout,,
+19:00,Ch1 & 2,0,,0,0,0,2,0,,0,Reel 1,NDF,1:00:00:00,,,,,,,,,,0,,91013
+8,0,0.000,0.000,,,,,0,0,0,1197400324,0,0,0,0,0,,SUPERVISOR,0,,,,,,,,,
+,,,0,,,,,,,,,,,0,0,0.000,0.000,,,,,,,,
8900,17,0,99,8891,,0,0,1005,36408,ABCD,0,,02/25/2007,1000797,ppp,Skiin
+g,Mountain,01:00:00,Ch1 & 2,0,4070,0,0,0,25,0,,0,Reel #4,DF,00:00:00,
+,,,,,,,,,0,,910138,0,0.000,0.000,,,,,0,0,0,1197897083,1169216384,0,0,
+0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,,,
+,,,,,
8901,17,0,99,8892,,0,0,1005,36409,ABCD,0,,12/21/2007,1000707,ttt,Natio
+nal Meeting,ppp,1:00:00,Ch1 & 2,0,4071,0,0,0,25,0,,0,Reel #1,NDF,1:00
+:00,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502505,1093009598
+,0,0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.0
+00,,,,,,,,
8902,17,0,99,8893,,0,0,1005,36410,ABCD,0,,12/21/2007,1000707,,National
+ Meeting,ppp,1:00:00,Ch1 & 2,0,4072,0,0,0,25,0,,0,Reel #2,NDF,2:00:00
+,,,,,,,,,,0,,1000705,0,0.000,0.000,,,,,0,0,0,1198502514,1093009598,0,
+0,0,0,SUPERVISOR,SUPERVISOR,0,,,,,,,,,,,,0,,,,,,,,,,,0,0,0.000,0.000,
+,,,,,,,

[download]
What am I doing wrong?

In my Learning Perl book there is a footnote about having to use anchors to match a specific number of digits (ie. that the regexp /\d{3}/ will match groups of digits that are 4, 5, or more digits long) but I can't for the life of me see how any of the anchors would enable that. None of my other books mention this quirk. Am I missing something? Is there another anchor I don't know about?

Also, notice at the beginning of the results it's putting in a date of 12/31/1969, even though there's no timestamp there. What's causing this and how do I prevent it? Does it have anything to do with these warnings I'm getting? 

Use of uninitialized value in localtime at DataConvert.pl line 22, 

<SOURCE> line 7.
Use of uninitialized value in regexp compilation at DataConvert.pl lin
+e 

41, <Source> line 7.

[download]
One more question: is it OK to use $& the way I'm using it, or should I be assigning it to a conventional variable?

Any help would be greatly appreciated! Thanks!

In reply to Matching multiple digits by skoney

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.