> 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
>
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
