C
Captain 3-Putt
My output has a bunch of unwanted "^@" characters after every valid
character. It looks like:
^@F^@i^@r^@s^@t^@^M^@
I want it to look like:
First^M
vim's 'g', 'a' shows "<^@> 0, Hex 00, Octal 000"
It's just a null character?? How do I get rid of it?
Thanks!
Ken
----------------------------------
#!/usr/bin/perl
open(BBOARD_DOWN, "<$ARGV[0]") or die ("Couldn't open $ARGV[0]");
@file=<BBOARD_DOWN>;
close(BBOARD_DOWN);
$header = $file[0];
for ($i = 1; $i <= $#file; ++$i) {
$student[$i] = $file[$i];
}
# student records, one at a time
@field = split(/\t/, $header);
for ($i = 0; $i <= $#field; ++$i) {
print "$field[$i]\t";
}
for ($i = 1; $i <= $#file; ++$i) {
print $student[$i];
}
character. It looks like:
^@F^@i^@r^@s^@t^@^M^@
I want it to look like:
First^M
vim's 'g', 'a' shows "<^@> 0, Hex 00, Octal 000"
It's just a null character?? How do I get rid of it?
Thanks!
Ken
----------------------------------
#!/usr/bin/perl
open(BBOARD_DOWN, "<$ARGV[0]") or die ("Couldn't open $ARGV[0]");
@file=<BBOARD_DOWN>;
close(BBOARD_DOWN);
$header = $file[0];
for ($i = 1; $i <= $#file; ++$i) {
$student[$i] = $file[$i];
}
# student records, one at a time
@field = split(/\t/, $header);
for ($i = 0; $i <= $#field; ++$i) {
print "$field[$i]\t";
}
for ($i = 1; $i <= $#file; ++$i) {
print $student[$i];
}