How to truncate STDIN line length?

前端 未结 9 1777
醉酒成梦
醉酒成梦 2021-01-05 07:15

I\'ve been parsing through some log files and I\'ve found that some of the lines are too long to display on one line so Terminal.app kindly wraps them onto the next line. Ho

9条回答
  •  不思量自难忘°
    2021-01-05 07:44

    use strict;
    use warnings
    use String::FixedLen;
    
    tie my $str, 'String::FixedLen', 4;
    
    while (defined($str = <>)) {
        chomp;
        print "$str\n";
    }
    

自定义标题
段落格式
字体
字号
代码语言
提交回复
热议问题