For instance, the below is your data file --data.txt
12~s1~s314~s5677~s899~s0~s
Here are the codes:
#!/usr/bin/perl
open(DATA,"data.txt");
while(<DATA>) {
$number=$_;
# print $number;
while ($number =~ /([0-9]+)~s/g){
printf ("%d\n","$1");
}
}
close(DATA);
> I need some help with this problem.
> I've got a text file datafile with 1 line of data comprised of 30
> different numbers delimited with ~s.
>
> I need to open this file, grab this line of data, split it into
> individual numbers, perform some simple math (addition) on each
> number, and then put the new values back into the datafile, replacing
> the original data that was there.
>
> I have tried for two days to figure out what I'm doing wrong, but I
> keep getting "needs a package name" errors for every variable
> nomenclature I try to work with. I've declare arrays and variables
> until my fingers are numb and nothing is working. I'm using Perl 5.008
> if that matters.
>
> Can somebody please help?
|