Problem editing a file

[Ikolder]

Hello,

I hope someone can help me with this!
I have a problem editing a text file my file looks like this

11
13
15
16
23

I want to read the file a line at a time and add 0.5 to every line so this is the script i used.

open(my $a, '>File.txt');
$b ="\t0.5\n";
    open (Data, 'Data.txt');
while ($c = <Data>){
 
print $a "$c\t$b";
}
 
close $a
close (Data)

I want my output to look like this

11 0.5
13 0.5
15 0.5
16 0.5
23 0.5

but it looks like this

11
0.5
13
0.5
15
0.5
16
0.5
23
0.5

How do i get my data printed on one line?

[numberwhun]

Hello,

I hope someone can help me with this!
I have a problem editing a text file my file looks like this

11
13
15
16
23

I want to read the file a line at a time and add 0.5 to every line so this is the script i used.

open(my $a, '>File.txt');
$b ="\t0.5\n";
    open (Data, 'Data.txt');
while ($c = <Data>){
 
print $a "$c\t$b";
}
 
close $a
close (Data)

I want my output to look like this

11 0.5
13 0.5
15 0.5
16 0.5
23 0.5

but it looks like this

11
0.5
13
0.5
15
0.5
16
0.5
23
0.5

How do i get my data printed on one line?

Try adding the following two lines to your code before printing to the new file:

chomp($a);
chomp($b);
chomp($c);
 

Regards,

Jeff

[Ikolder]

I tried this but it works for some of the numbers but not all. The output looks like this i want a tab in between the numbers.But i only get it for numbers who have two digits, if they have only one i get just a space.

[HTML]
11 0.5
12 0.5
1 0.5
2 0.5
5 0.5
22 0.5
44 0.5[/HTML]

Try adding the following two lines to your code before printing to the new file:

chomp($a);
chomp($b);
chomp($c);
 

Regards,

Jeff

[mehj123]

I tried this but it works for some of the numbers but not all. The output looks like this i want a tab in between the numbers.But i only get it for numbers who have two digits, if they have only one i get just a space.

[HTML]
11 0.5
12 0.5
1 0.5
2 0.5
5 0.5
22 0.5
44 0.5[/HTML]

Hi..
Your code is working fine for me... and I am gettting equal space between the numbers no matter if they are one digit or 2 digit.

 
open(my $a, '>File.txt');
$b ="\t0.5\n";
open (Data, 'Data.txt');
while ($c = <Data>){
chomp($c);
print $a "$c\t$b";
}
 
close $a;
close (Data);
 

I am attaching the input and output files....

[Ikolder]

Hi..
Your code is working fine for me... and I am gettting equal space between the numbers no matter if they are one digit or 2 digit.

 
open(my $a, '>File.txt');
$b ="\t0.5\n";
open (Data, 'Data.txt');
while ($c = <Data>){
chomp($c);
print $a "$c\t$b";
}
 
close $a;
close (Data);
 

I am attaching the input and output files....

If tried it several times om my data but it only gives a tab at the largest number of digits i have different numbers of digits in my data and only the one's with the most digits get's a tab in between my output keeps looking like this.

[HTML]1234 0.5
123 0.5
12 0.5
1234 0.5
1 0.5
1234 0.5
1234 0.5[/HTML]

[Ikolder]

My data is in a text file could that be a problem should it be in another format?

[anjigorantla]

hi,
i worked with this code, it is working fine as like your required output.

open(my $a, '>File.txt');
      $b ="0.5\n";
      open (Data, 'Data.txt');
      while ($c = <Data>){
      chomp($c);
      print $a "$c $b";
      }
      close $a;
      close (Data);
 

[anjigorantla]

Hi..
Your code is working fine for me... and I am gettting equal space between the numbers no matter if they are one digit or 2 digit.

 
open(my $a, '>File.txt');
$b ="\t0.5\n";
open (Data, 'Data.txt');
while ($c = <Data>){
chomp($c);
print $a "$c\t$b";
}
 
close $a;
close (Data);
 

I am attaching the input and output files....

hi,
can u tell me how to attach a file.

[Ikolder]

Hi

if tried it on a couple of data sets but my output remains not properly outlined.

I attached my data files so you can look for yourself the output is misaligned

[Ikolder]

hi,
can u tell me how to attach a file.

You can attach a file when editing a post

[numberwhun]

hi,
i worked with this code, it is working fine as like your required output.

open(my $a, '>File.txt');
      $b ="0.5\n";
      open (Data, 'Data.txt');
      while ($c = <Data>){
      chomp($c);
      print $a "$c $b";
      }
      close $a;
      close (Data);
 

I had to edit your post to add the required code tags. Please be sure any time that you post code to the forum, that you surround it in the necessary code tags.

Regards,

Jeff