diff options
Diffstat (limited to 'bin/irc-ebooks-feed')
-rwxr-xr-x | bin/irc-ebooks-feed | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/irc-ebooks-feed b/bin/irc-ebooks-feed index 9b1011d..8cf9214 100755 --- a/bin/irc-ebooks-feed +++ b/bin/irc-ebooks-feed @@ -46,15 +46,15 @@ const my $LINE_FORMAT => qr{ # Skip text lines that match these patterns const my @SKIP_PATTERNS => ( - qr{ <[@%+ ]?\w+> }msx, # Looks like nick (probably a quote) - qr{ \d:\d }msx, # Looks like timestamp (probably a quote) - qr{ :// }msx, # Looks like URL + qr{ <[@%+ ]?\w+> }msx, # Looks like nick (probably a quote) + qr{ \d:\d }msx, # Looks like timestamp (probably a quote) + qr{ :// }msx, # Looks like URL ); # Delete these from text const my @DELETE_PATTERNS => ( - qr{ ^\w+:\s }msx, # Address in form of "nick: " - qr{ ["()\[\]] }msx, # Punctuations marks that may unbalance + qr{ ^\w+:\s }msx, # Address in form of "nick: " + qr{ ["()\[\]] }msx, # Punctuations marks that may unbalance ); # Import required modules |