Hi,
This took a few tries to knock out:
my $In = " Dec 20 13:28 guard/AFRC_AFRC00_01";
#s/ *(\w*) (.*)/ $1| $2|/;
$In =~
s/ *(\w+) +(\d+) +(\d+:\d+) +(.*)\/(\D*_\D*)(\d+)_(\d+)/ $1| $2| $3 |$4\/|$5|$6_|$7/;
print "$In\n";
Desired:
Dec| 20| 13:28 |guard/|AFRC_AFRC|00_|01
Results:
Dec| 20| 13:28
(\S+\/)(\S+\_)(\S+)(00\_)(\d+)/$1\| $2\| $3
\|$4\|$5\|$6\|$7\|$8/;
print OUT "$_\n";
}
close OUT;
close TEST;
-Original Message-
From: Mark Anderson [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 09, 2003 1:20 PM
To: Jensen Kenneth B SrA AFPC/DPDMPQ; [EMAIL PROTECTED]
Su
Ken
What exactly are the rules? I wrote this:
my @file = (
' Dec 20 13:28 guard/AFRC_AFRC00_01',
' Nov 22 2001 guard/ANCHORAGE_668300_14',
' Dec 20 08:46 guard/ALPENA_MI_503000_79',
' Dec 30 06:51 guard/ANDREWS_MD_525700_93' );
@file = map {
s/\b(?=\s)/|/g;
-Original Message-
From: Jensen Kenneth B SrA AFPC/DPDMPQ
[mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 09, 2003 10:59 AM
To: '[EMAIL PROTECTED]'
Subject: Reqxp help
Trying to make a one liner regxp to covert a file. File has lines like these
(lines are preceded with a space)
Dec
