История изменений
Исправление
redgremlin,
(текущая версия)
:
#!/bin/bash
`perl -le 'while(<>) { @w = split(" ", $_); for (@w) { $wc{$_}++ } } for (keys %wc) { print "$_ - $wc{$_}\n" }' "$1"`
Исходная версия
redgremlin,
:
#!/bin/bash
`perl -nle '@w = split(" ", $_); for (@w) { $wc{$_}++ }; for (keys %wc) { print "$_ - $wc{$_}\n" }' "$1"`