Hello ,
i think this would be a good way
#!/usr/bin/perl -w
use strict;
my $file = 'data.csv';
open(FILE,$file);
while(my $line = <FILE>){
my @wanted = split(/\|/,$line);
print $wanted[0],"\n";
}
close(FILE);
On 7/21/05, Rob Coops <[EMAIL PROTECTED]> wrote:
>
> Try the following (this is just a short example)
>
> #!/usr/bin/perl -w
>
> use strict;
>
> # Open the file
> open (IN, "<your_file.csv") or die "Oops unable to read the file error: "
> .
> $!;
> # Loop thru the fill till the bitter end
> while (<IN>) {
> chomp; # Make sure there is no funny stuff at the end (not really needed
> in
> this example though)
> my ($temp) = $_ =~ /^(.*)\|.*$/; ($_ holds the line so we match the stuff
> we want to have and put it in $temp)
> print $temp . "\n"; # because I had no other things to do with this just
> print it to screen
> }
>
> close IN; # Close the file.
>
> Note that both warnings and strict is used in this application just as a
> for
> of good practice, at first it will make things more difficult but soon
> enough you will see that any good perl programer will not even start
> typing
> without enabeling both.
>
>
> On 7/21/05, Brent Clark <[EMAIL PROTECTED]> wrote:
> >
> > Hi list
> >
> > I was hoping someone would be so kind as to help me with this.
> >
> > I have a CSV file and on every line, I have a line like so:
> >
> > lts.dat|somedata
> > lts001.dat|somemoredata
> >
> > I basically would like to ONLY get the name of the file before the first
> > pipe.
> >
> > I was thinking that the regex would look something like so
> >
> > /^*\|/ # Get the beginning of the CSV file, extract the filename, to
> > #the first pipe
> >
> > but I need to extract and pass the value to a variable.
> >
> > Would anyone have any tips or advise on this.
> >
> > Kind Regards
> > Brent Clark
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > <http://learn.perl.org/> <http://learn.perl.org/first-response>
> >
> >
> >
>
>
