Extract problem

[PerlElvir]

Hi all

How I can extract to first "?" if I have two "?"

example:

$var= I have ? and I woild like ? finish this;

so I want to from $var make 2 new so extract have to be till ?(first and seconde)

$first= I have
$seconde=I have ? and I woild like

 

[TrojanWarBlade]

my ($first,$second) = split /\?/, $var, 2;

Trojan.

 

[vjcyrano]

Code:

if ($var =~ /((.*?)\?.*?)\?/g)
{
$first = $1;
$second = $2;
print "$second\n$first ";
}

 

[PerlElvir]

thx

 

[tini1208]

hi all,

i am an absolut beginner in using perl skripts.
my problem: i want to extract lines out of a very long file (the lines are existing more than one time in the file).
i try the following methode:

#!/usr/local/bin/perl -w

use Getopt::Long;
GetOptions("i=s" => \$i, # --i
"o=s" => \$o); # --o

($i && $o) || die "usage: perl extract.pl --i inputfile --o outputfile";

open(FILEIN,"$i") || die "Can't open input filename : $!\n";
open(FILEOUT,">$o") || die "Can't open output filename: $!\n";

while (<FILEIN>) {
if (/**first column of beginningline**/ .. /**first column of endingline/)
}

maybe all of you can see what is going wrong.....
regards, christine (looking for help ) )

 

[tini1208]

sorry sorry sorry, its very early in the morning and i am sleeping!
this should be an new threat and no answer....it was silly to do!!!
sorry!!!

 

[stevexff]

I think we can let you off just this once!

while (<FILEIN>) {
  if (/**first column of beginningline**/ .. /**first column of endingline/) {
    [red]print FILEOUT $_;[/red]
    }
}