format について

質問

formatで出力した先で一行ずつ改行が入るのですが、入らない方法って
ありますか？

format TEST =
@<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<
$name,$login
.

------------↓出力時

太郎　　　０１２３

次郎　　　０３０３

三郎　　　１１１１

回答No.3

sakusaker7

すみません。回答を書くのを忘れていました。
環境についてはわたしと同じですね。

#1でわたしが貼り付けているスクリプトを質問者さんの
環境で実行するとどうなりますか?

それと#1の補足にあるスクリプトですが、どのようなエディタを
使って作られました? 改行の設定がどうなっているのかがわかれば
それもお願いします。

あ、そうだもう一つ。
実行しているのは、コマンドプロンプト(cmd.exe)上でですか?
それとも何か別の環境でしょうか?

補足

すみません。おさわがせしました。
format TABLE =
●←ここ改行してました。
@<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<
$test1,$test2,$test3

回答No.2

sakusaker7

再現しません。
1□ 1■ 1○
2□ 2■ 2○
3□ 3■ 3○
4□ 4■ 4○

スクリプトを実行している環境などの情報をお願いします。

補足

環境としては
WindowsXP SP2
ActivePerl v5.8.8
です。

回答No.1

sakusaker7

$nameと$loginの内容はどこからどう来たのかがわかりませんけど、
$loginの尻尾とかに改行コードがくっついてませんか?

#!/usr/bin/perl
# -*- coding: utf8 -*
use strict;
use warnings;

my $name;
my $login;

format STDOUT =
@<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<
$name,$login
.

while (my $entry = <DATA>) {
chomp $entry;
($name, $login) = split q{,}, $entry;
write;
}

__END__
太郎,1234
次郎,2345
三郎,3456

C:\work>perl mogera.pl
太郎 1234
次郎 2345
三郎 3456

補足

やっぱり改行するんですがどうでしょうか？
-------------------------------------------
for ($i = 1; $i <= 4; $i++) {
$test1 ="$i"."□";
$test2 ="$i"."■";
$test3 ="$i"."○";
$~ = TABLE ;
write;
}

format TABLE =
@<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<
$test1,$test2,$test3
.