Поэтому вчера все-таки организовал посещение мануала по перлу. Результат:
- Код: Выделить всё
use Win32::Clipboard;
$CLIP=Win32::Clipboard();
$a=$CLIP->Get();
system("ping $a");
<>
после чего ярлык к этому скрипту я вынес в Lucky Jump (это одна из менюшек, которые можно поставить в мышке A4Tech 5-тикнопочной).
Скрипт лезет в буфер обмена, достает его содержимое и пингует его не глядя. Т.е. там может быть любая гадость по вкусу. (например "some.host\nformat c:", так что поосторожнее все-таки).
Аналогичные скрипты для tracert и nslookup отличаются только одним словом в вызове команды system.
Еще я уже почти сделал все то же самое, но объединенное в одно окошко с помощью модуля Tk. Кнопочки там всякие и прочие удобства. Пинг там уже почти работает. Остальные почему-то упрямятся, но это ненадолго.
