diff options
| author | Yigit Sever | 2021-10-20 11:02:45 +0300 |
|---|---|---|
| committer | Yigit Sever | 2021-10-20 11:02:45 +0300 |
| commit | 7765dd1cffe4fde68d110d18696376cc1d79d833 (patch) | |
| tree | e53efe0b7c1f21f6bbc5698bc623139f63aa3d11 | |
| parent | 79643ba5eac36359400011fb595e1e1d9a6014c2 (diff) | |
| download | dotfiles-7765dd1cffe4fde68d110d18696376cc1d79d833.tar.gz dotfiles-7765dd1cffe4fde68d110d18696376cc1d79d833.tar.bz2 dotfiles-7765dd1cffe4fde68d110d18696376cc1d79d833.zip | |
sentences: support i.e. e.g.
| -rwxr-xr-x | .local/bin/sentences | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/.local/bin/sentences b/.local/bin/sentences index cc21d3b..1b46a49 100755 --- a/.local/bin/sentences +++ b/.local/bin/sentences | |||
| @@ -2,8 +2,8 @@ | |||
| 2 | 2 | ||
| 3 | use strict; | 3 | use strict; |
| 4 | 4 | ||
| 5 | my $pont = qr{[.!?]+}; ## punctuation | 5 | my $pont = qr{[.!?]+}; ## punctuation |
| 6 | my $abrev = qr{\b(?:Pr|Dr|Mr|[A-Z])\.}; ## abbreviations | 6 | my $abrev = qr{\b(?:Pr|Dr|Mr|[A-Z]|i\.e|e\.g)\.}; ## abbreviations |
| 7 | my $header = qr{(=+ .*? =+)}; | 7 | my $header = qr{(=+ .*? =+)}; |
| 8 | 8 | ||
| 9 | $/ = ""; | 9 | $/ = ""; |