Perl egyszerű hasonlítás kérdés

Szkriptek: Python, Perl, Bash, ...

Hello,

egy egyszerű perl scriptet kellene módosítanom de sajnos én nem igazán vagyok jártas perlben.

van egy ilyen feltétel:

if ($day=~/$mday/)

a teljes script azt csinálja hogy ha a dátum megfelel a megadottnak akkor az kivágja és azt egy külön fileba menti csakhogy ha megadom pl márc 2 akkor belerakja a márc 12-t és a 22-t is. Hogyan módosítsam a fenti feltételt hogy csak azt mentse ha csak egyszer szerepel benne az a szám.

Előre is kösz

  • 872 megtekintés

( nothin | 2009. 02. 04., sze – 16:31 )

A teljes script:

#!/usr/bin/perl
use Date::Manip;

localtime(time);

$mday = &UnixDate("yesterday","%e");
$mon = &UnixDate("yesterday","%b");
$year = &UnixDate("yesterday","%Y");
$mday=join('',split(/ /,$mday));

## File open ###
open(FILE,"< /log.log") or die "Can't find!\n";;
open(DAY,"> /backup/log/daily/$year-$mon-$mday.log") or die "Cant open!\n";
####

## Ciklus ##
while ()
{
$ok=0;
($month,$day,$other) = split / +/,$_,3;
if ($month=~/$mon/) {
if ($day=~/$mday/) {
printf DAY $_;
}
}
} #endwhile

close FILE;
close DAY;
exit;