Hello Perl folks, I would like to know if there is an eloquent way of extracting a date string from a file. My code goes like this: open (INFILE, "<$sourcedir\\$filename") || die "Can not open $sourcedir\\$filename $!\n"; @filecontents = <INFILE>; close INFILE; @filecontents = map {chomp; $_} @filecontents;
# # Within the file contents, look for the text, CurrentWeekLabel # # Here is a text sample. # # <div style="TEXT-ALIGN: center; min-width: 750px"> # <div style="OVERFLOW: hidden; HEIGHT: 20px; TEXT-ALIGN: center"><span id="CurrentWeekLabel">Week Of: </span><span id="StartWeekLabel" style="font-weight:bold;">2011/10/29</span><span id="Label6" style="font-weight:bold;"> - </span><span id="EndWeekLabel" style="font-weight:bold;">2011/11/04</span></div> # <div style="OVERFLOW: hidden; HEIGHT: 24px; TEXT-ALIGN: center"><a id="PreviousWeekLinkButton" class="LinkButton" href="javascript:OnPreviousWeekLinkButtonClick ()" href="javascript:__doPostBack('PreviousWeekLinkButton','')">Prev</a><span id="Label20"> | </span><a onclick="SelectWeekButtonClick('PopupCalendar1', 'SelectWeekLinkButton'); return false;" id="SelectWeekLinkButton" class="LinkButton" href="javascript:__doPostBack('SelectWeekLinkButton','')">Select Week</a><span id="Label8"> | </span><a id="NextWeekLinkButton" class="LinkButton" href="javascript:OnNextWeekLinkButtonClick ()" href="javascript:__doPostBack('NextWeekLinkButton','')">Next</a></div> # <div style="OVERFLOW: hidden; OVERFLOW:visible; TEXT-ALIGN: center"><span id="StatusLabel" class="StatusLabel"></span></div> # </div> # # Obtain the year, month and day following the text, StartWeekLabel # @ans = grep (/StartWeekLabel.+\>(\d{4})\/(\d{2})\/(\d{2})\<\/span/si, @filecontents); # # Build the start date from the matches. # $start_date = $1 . $2 . $3 I was wondering if there was a neat way to avoid using @ans as a temporary variable, and extract the "2011/10/29" straight into $start_date so that $start_date = "20111029" Thank you Paul Rousseau 403 776 4293
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs