[Fwd: working with regexp without escaping range symbol]

[Aruna Goke]

I made a wrong substitution in the  if(/$ystd/) instead of if(/$mdy/).

Thanks

Goksie
-------- Original Message --------
Subject: working with regexp without escaping range symbol
Date: Sun, 05 Aug 2007 05:39:09 +0100
From: Aruna Goke <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: beginners@perl.org

hello all,

How can I work with this kind on expression without escaping the range.

#!/usr/bin/perl

use warnings;
use strict;
use DateTime;

my $ystd = DateTime->today->subtract(days => 1);
my $mdy = $ystd->ymd('-');  #date format in 09-25-2007
my $dty = $ystd->mdy('');  #date in format 09252007
{
my ($sum, $newsum_b, $sum_b, $cnt_ans, $cnt_nans);
   open my $fh, '<', $mfile or die "open '$mfile': $!" ;
   open my $nfh, '>', $yfile or die "open '$yfile': $!" ;
   while (<$fh>){
   if(/$ystd/){
      cdr_proc();
}


if I used the date 2007\-08\-04, it will work.. but I want to work with
the regexp without escaping the -.

Thanks for ur help.

Goksie


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/