Hi, i have this:
#perl
use strict;
use warnings;
while ( <DATA> ) {
chomp;
my @data = map { s/^\s+//; s/\s+$//; $_ } split /;/;
reformat ( @data );
}
sub reformat {
format =
PROBTRAC: Continuous Problem Tracking System Submittal Form
!crstatus = @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
shift
!severity: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
shift
!priority: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
shift
!problem_synopsis: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
shift
!problem_description: !text
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
my $temp = shift
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$temp
!end_text
!submitter: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
shift
.
write;
}
In fact i wanted to go to the line in the "problem description section" if
there is more than one "transitionned to" like this
How can i do this in perl thanks?
This is an exemple:
__DATA__
entered;Medium;Major;This is an example synopsis;Transitionned to entered by
iuzan to W_BUSFOR_QUAL on 17/3/2003 11:25:25 Transitionned to assigned by
iuzan to W_BUSFOR_QUAL on 17/3/2003 11:25:25 ;toto
standby;Urgent;Minor;This is an example synopsis2;Transitionned to entered
by iuzan to W_BUSFOR_QUAL on 17/3/2003 11:25:25 ;toto2
output:
PROBTRAC: Continuous Problem Tracking System Submittal Form
!crstatus = entered
!severity: Medium
!priority: Major
!problem_synopsis: This is an example synopsis
!problem_description: !text
Transitionned to entered by iuzan to W_BUSFOR_QUAL on 17/3/2003 11:25:25
Transitionned to assigned by iuzan to W_BUSFOR_QUAL on 17/3/2003 11:25:25
!end_text
!submitter: toto
PROBTRAC: Continuous Problem Tracking System Submittal Form
!crstatus = standby
!severity: Urgent
!priority: Minor
!problem_synopsis: This is an example synopsis2
!problem_description: !text
Transitionned to assigned by iuzan to W_BUSFOR_QUAL on 17/3/2003 11:25:25
!end_text
!submitter: toto2
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
