chomp

    1熱度

    2回答

    我對Perl很新穎。我的Perl程序正在從瀏覽器獲取HTTP請求消息,我想檢測最後一個空白行。 我試圖用$_ =~ /\S/,但它不工作: while (<CONNECTION>) { print $_; if ($_ =~ /\S/) {print "blank line detected\n"; } } 輸出 GET/HTTP/1.1 blank line dete

    8熱度

    5回答

    這是我的Perl代碼看起來像monitoring a Unix folder: #!/usr/bin/perl use strict; use warnings; use File::Spec::Functions; my $date = `date`; chomp $date; my $datef = `date +%Y%m%d%H%M.%S`; chomp $datef; my

    3熱度

    3回答

    我想在Perl中處理一個文本文件。我需要將文件中的數據存儲到數據庫中。 我遇到的問題是某些字段包含一個換行符,這會讓我稍微有些失望。 什麼是包含這些字段的最佳方式? 實施例的data.txt文件: ID|Title|Description|Date 1|Example 1|Example Description|10/11/2011 2|Example 2|A long example des

    8熱度

    4回答

    在編寫簡潔的代碼的興趣... IO.popen("Generate a list of files").readlines.each{ |line| chomped_line = line.chomp # ... }

    1熱度

    6回答

    我想在這個文件中讀取: Oranges Apples Bananas Mangos 使用此: open (FL, "fruits"); @fruits while(<FL>){ chomp($_); push(@fruits,$_); } print @fruits; 但我沒有得到任何輸出。我在這裏錯過了什麼?我試圖將文件中的所有行存儲到一個數組中,並將所有內容打印出

    2熱度

    3回答

    我有這樣的代碼: #!/usr/bin/perl use strict; use warnings; open(IO,"<source.html"); my $variable = do {local $/; <IO>}; chomp($variable); print $variable; 然而,當我打印出來,它仍然有換行符?