perl - 获取自动拆分分隔符的值？

Question

如果我使用 perl -F 运行脚本某物，该值是否保存在脚本可以找到的 Perl 环境中的任何位置？我想编写一个脚本，默认情况下重用输入分隔符(如果它是字符串而不是正则表达式)作为输出分隔符。

Answer 1

看着source ，我不认为分隔符保存在任何地方。当你跑

perl -F, -an

词法分析器实际生成代码

LINE: while (<>) {our @F=split(q\0,\0);

并解析它。此时，有关定界符的任何信息都将丢失。

您最好的选择是 split用手:

perl -ne'BEGIN { $F="," } @F=split(/$F/); print join($F, @F)' foo.csv

或者将分隔符作为参数传递给脚本:

F=,; perl -F$F -sane'print join($F, @F)' -- -F=$F foo.csv

或将分隔符作为环境变量传递:

export F=,; perl -F$F -ane'print join($ENV{F}, @F)' foo.csv