perlで一行を一定の文字数で出力させるにはなにか、良い方法はありませんでしょうか?
なお、文字の途中で折り返すのではなく、単語(配列の一単語)単位で処理させたいと思っています。
[プログラム例]
#! /usr/bin/perl
@list = ("a", "bb", "ccc", "dddd", "eeeee", "ffffff");
{
local $, = ", ";
print @list;
}
[出力]
a, bb, ccc, dddd, eeeee, ffffff
[望む出力]
a, bb, ccc,
dddd, eeeee,
ffffff
※ printする前にlengthでバイト数を調べて、折り返すかどうかの判断をしないとだめなのでしょうか?
No.1ベストアンサー
- 回答日時:
formatではダメですか?
#!/usr/bin/perl
my @list = ("a", "bb", "ccc", "dddd", "eeeee", "ffffff");
my $text = join(', ', @list);<
format STDOUT =<
~~^<<<<<<<<<<<
$text
.
write;
参考URL:http://www.rfs.jp/sb/perl/02/11.html
有難うございました。ばっちりです。色々調べてみたエッセンス:
^<<< : 表示できなかったときにスカラ文字列をchopして保持
~~ : repeat line until all fields are exhausted
の組み合わせ。
@listは a, bb, ccc, .... と空白で区切ることで単語として認識させる。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Java Java 南京錠 2 2023/02/04 11:46
- その他(プログラミング・Web制作) 変換のプログラムを教えてください。 6 2023/07/01 09:57
- その他(プログラミング・Web制作) awkのtoupper() 1 2022/10/21 20:39
- PHP PHPの構文で間違えが分からない 5 2022/07/11 16:38
- その他(プログラミング・Web制作) python質問 1 2023/08/14 11:54
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- C言語・C++・C# C#の問題です。 文字列型の配列 s[100] にキーボードから入力された100文字以内の文字列(単 2 2022/06/22 15:18
- Visual Basic(VBA) 【VBA】特定の文字で改行(次の行)に行きたい。 3 2022/04/11 17:20
- 中学校 間違った国語の実力テストの勉強? 1 2022/08/28 15:59
- Perl perlで2次元配列をサブルーチンに値渡しで渡す 5 2022/12/17 18:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
awkスクリプトでダブルクォーテ...
-
重複するデータを抽出できる秀...
-
DOSコマンドで、標準出力を出力...
-
perlでの出力先設定
-
Perlでエラーログに日時をつける
-
VBAでCSVファイルを途中行まで...
-
window.open でのファイル指定方法
-
ExcelをCSV書き出す場合のシー...
-
VBA テキストファイルを読み取...
-
perlのflock関数でロックをかけ...
-
Perlで特定行から特定行までを...
-
ファイル全てを .xlsm に変更し...
-
重複ファイル名ある場合ファイ...
-
perlでファイルの比較
-
fopenでディレクトリ内の全ファ...
-
C言語のバイナリモードでのfsca...
-
複数ファイルを1つにするシェ...
-
batファイルでrenameができませ...
-
perlでCSVをソートする方法につ...
-
openした後、closeしないでプロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
DOSコマンドで、標準出力を出力...
-
awkスクリプトでダブルクォーテ...
-
エクセルVBAで素数だけを出力す...
-
sprintfについて
-
ファイル出力の改行コードをLFに
-
テキストファイルから日本語部...
-
重複するデータを抽出できる秀...
-
教えて!perlから.exeファイル...
-
sprintfで10進数を桁数指定で16...
-
Perlでファイルの末尾から指定...
-
文字コードの変換(Shift-JISか...
-
Perl<->Oracle間での文字化けに...
-
[Perl]ファイル出力のエンコー...
-
Perlでエラーログに日時をつける
-
Perlからsyslog経由でログを出...
-
バッチファイルで、記号を含む...
-
コンソール出力をテキストに出...
-
至急お願いします。C言語で.img...
-
Active Perlでsleepを使う。
-
リファレンスについて。
おすすめ情報