rikki mongoose: papers: scripting

Показаны сообщения с ярлыком scripting. Показать все сообщения

вторник, 19 марта 2013 г.

grep support for \d

A long time ago, when every PC had own OS, it was easy to remember, which RegEx are from POSIX standart, and which appeared only in Perl-style. Now it’s almost forgotten, and C# regexp classes don’t support POSIX character classes (like [:digit:]).

That’s why the debugging of a simple bash script is so difficult. grep is older then a lot of his users, he remembers all of these times and needs -P for Perl mode and ‘\d’ for digits support.

That’s how

ls | grep -e "[0-9][0-9].[0-9][0-9].md"

becames:

ls | grep -Pe "\d{2}.\d{2}.md"

Git: How to rename a GitHub repo

GitHub allows to rename your repos. I really like this solution.

Install curl if you haven’t and use terminal (or cygwin under windows):

user=MyUserName
pass=MyPassword
newName='{"name": "NewNameForRepo"}'
oldName="MyRepo"
curl -u "$user:$pass" -X PATCH -d "$newName" https://api.github.com/repos/$user/$oldName

четверг, 22 ноября 2012 г.

Kosher PC

Придумался скрипт для ортодоксальных иудеев, которые сидят под *nix-ом и стараются соблюдать котев штей отийот – запрет писать две буквы в Шаббат.

Надо открыть .profile и вписать в самое начало:

if ([ `date +"%w"` -eq 0 ]) then shutdown -h now fi

Теперь Ubuntu тоже будет соблюдать Шаббат и выключаться, если на календаре седьмой день недели.

понедельник, 18 июня 2012 г.

Cygwin: Делаем немыслимые вещи

Немыслимо интересные вещи на bash (кое-что и на Cygwin неплохо работает). На случай, если сайт слетит (Web 1.0, что поделать) - сохраните у себя.

Перепостил бы целиком, но Linux-ом пока не пользуюсь.

пятница, 8 июня 2012 г.

Script: Replace in multiple files in Windows

A simple script to replace somethign in multiple files for Windows...

I've seen such a script for MS DOS Batch files. But I'd lost it and nobody could help me. I had ActivePerl, but the one-liner for replace in multiple files could be used only in *nix shell because of "/' things.

And finally I've got it for MS PowerShell. Here it is:

(Get-Content C:\Scripts\Test.txt)
| Foreach-Object {$_ -replace "\*", "@")
| Set-Content C:\Scripts\Test.txt

Thank you, Scripting Guy!

суббота, 12 мая 2012 г.

Script: Привет из эры Web 1.0

Собрания всевозможных CMD, Perl и прочих скриптов на радость админам.

Включая совершенно немыслимый CMD-шник, который по датскому названию птицы выдаёт её латинское видовое название. Из Википедии, разумеется. Причём парсит Википедию... через JScript!

"Это невероятно".

вторник, 8 мая 2012 г.

Script: скомпилировать все *.sln файлы

Ещё один CMD-скрипт. Делает Switch для tortoise, после чего перекомпилирует все *.sln в проекте.

@echo off
set MSBUILD=%WinDir%\Microsoft.NET\Framework\v3.5\msbuild
set PROJECT=d:\Projects\CSharp\MinesweeperProj\
TortoiseProc /command:switch /path:"%PROJECT%"
cd %PROJECT%
for %%f in (*.sln) do "%MSBUILD%" %%f
cd %~dp0.

К сожалению, switch с заменой ветки в текущей стабильной версии делать нельзя. В nightly версии у switch добавился параметр url, но бета-версии Tortoise на работе обычно не ставят.

Script: Скриптовая эволюция

Дано - написать скрипт, который кидает определённые файлы из локальной папки в папку на подключенном сетевом диске. Например, веб-проект, в котором мы изменили 2-3 dll. OS Windows.

На каком языке писать скрипт?

ActivePerl под Windows - иногда не принимает переданных параметров
Cygwin - нету
PowerShell - просто так даже Hello World не запустишь. Система будет ругаться, что он... не подписан (маразм? маразм!)

Похоже, технологии ушли слишком далеко. Нам остаётся только старый формат CMD файлов.

copydll.cmd:

@echo off
set FROM=d:\proj1\bin
set TO=W:\stable\proj1\bin
FOR %%A IN (%*) DO IF EXIST "%FROM%\%%A.dll" COPY /Y "%FROM%\%%A.dll" "%TO%\%%A.dll"

Добавляем папку в Path и вызываем

copydll Proj.Module1 Proj.Module2

А этот cmd можно кинуть на панель в Total Commander и просто перетаскивать туда нужный файл:

@echo off
set TO=W:\stable\proj1\bin
FOR %%A IN (%*) DO IF EXIST %%A COPY /Y %%A "%TO%\%%~nxA"

Конечно, можно просто перетащить на панель Total Commander'а саму папку, но тогда придётся дважды щёлкать мышкой (ОК в диалоге копирования и потом Replace All)

Да, ещё. Если написать в CMD-шке PAUSE, она в этом месте попросит Press any key to continue....

суббота, 28 апреля 2012 г.

Cygwin: grep взбунтовался?

Интересные вещи творятся в GNU grep 2.5.4. С мест сообщают - grep -o - тормозит как неизвестно что.

Поэтому надо писать так:

gawk '{match($0, "REGEXP") ; if (RSTART) print substr($0, RSTART, RLENGTH);}'

А желающие могут сравнить:

#!/bin/sh
for x in {1..10000} ; do echo {a..z} @where=gdetotam@ {a..z}{a..z} ; done > tmp.txt
export LC_ALL=C
time cat tmp.txt | grep -o "@where=[^@]\+@" > /dev/null #медленно, 2 секунды
time cat tmp.txt | grep "@where=[^@]\+@" > /dev/null #быстро, 0.1 секунды
time cat tmp.txt | awk '{match($0, "@where=[^@]+[@]") ; if (RSTART) print substr($0, RSTART, RLENGTH);}' > /dev/null

На моём Cygwin с grep 2.5.1 - всё ОК.

Cygwin: Ловим ошибки

Не забываем добавлять в начало bash-скрипта (сразу после адреса):

set -euo pipefail

чтобы увидеть ошибки в коде, переменных и пайпах.

А вот ошибки в функциях нам так и не покажут.

Cygwin: Резервное копирование

Умеренно универсальный скрипт для резервного копирования. На входе - директория. Можно добавить дополнительные параметры. На выходе - она же, запакованная в tar.gz.

#!/bin/sh
BackUpDir="/cygdrive/D/Backup"
if ([ $1 ]) then
  BackUpDir=$1
fi
if ([ ! -d $BackUpDir ]) then
  mkdir -pv $BackUpDir
fi
if ([ $2 ]) then
 if ([ -d $2 ]) then
  From=$2
 else
  From=`dirs`
 fi
fi
ArchiveName="$BackUpDir/"`date +"%d.%m.%y(%H.%M)"``echo "$From" | sed 's!^\(/\?.*\)*/\(.*\)/\?$!\2!g'`".tar"
tar -cf "$ArchiveName" *
gzip $ArchiveName

Cygwin: Лучше, чем у Лекса Кравецкого

Во время оно lex-kravetski был не только коммунистом, но ещё и программистом. Например, написал большой пост о том, как конвертировать wav в mp3 консольным конвертером и 2 BAT-файлами.

При всем нашем уважении к пакетным файлам, то же самое на cygwin выглядит не в пример лучше, лаконичней и помещается в 1 скрипт:

#!/bin/sh
LameDir="C:/lame"
if ([ $1 ]) then
 Artist="$1"
else
 echo -n "Artist="
 read Artist
fi
if ([ $2 ]) then
 Genre="$2"
else
 echo -n "Genre="
 read Genre
fi
CurrentDir=`dirs`
ParamAlbum=`echo $CurrentDir | sed 's!^\(/\?.*\)*/\(\([0-9]\{4\}\)[ -]\+\)\?\(.*\)$!--ty "\3" --tl "\4"!g'` #RegExp: ^(/.*)*/(([0-9]{4})[ -]+)?(.*)$
for filename in *.wav
do
  FileShortName=`echo $filename | sed 's!\^(.*\).wav$!\1!g'` #RegExp: ^(.*).wav$
  ParamTrack=`echo $FileShortName | sed 's!^\([0-9]\{2\}\)[ -.]\+\(.*\)!--tn "\1" --tt "\2"!g'` #RegExp: ^([0-9]{2})[ -.]+(.*)
  echo "$LameDir/lame.exe -V2 \"$CurrentDir/$FileShortName.wav\" \"$CurrentDir/$FileShortName.mp3\" --pad-id3v2 --ta=\"$Artist\" $ParamAlbum $ParamTrack --tg=\"$Genre\""
done

Как использовать?

Сохраняем скрипт в нашу директорию со скриптами под именем tomp3 (или ещё каким-нибудь). Во второй строке указываем директорию, куда мы распаковали Lame.
Копируем файлы с CD в wav в таком виде:

2009 - Album / 01 - Song.wav

Или в другом:

Album/01 - Song with a long-ling name.wav

(год может быть и пустым)
Открываем cygwin И переходим в папку с Wav-ками
Набираем SH ~/tomp3 "Artist" "Genre". Если без них - скрипт сам спросит.
После завершения кодирования: rm *.wav
И quit

К сожалению, скрипта с подсветкой синтаксиса для bash-скриптов у меня нет. Поэтому я подсветил как brush:perl. Получилось ярко и доступно.

BAT: Неизвестные факты из жизни пакетных файлов

Многие слышали про bat-файлы. Но не все знают что:

Помимо BAT, были ещё CMD, WSH (Windows Script Host с поддержкой аж двух языков - JScript и VBScript), а чуть позже появился Power Shell. JScript и VBScript интересны тем, что были намного сложнее и непонятнее BAT. Но и на них писали.
BAT работали ещё в DOS-е, поэтому его выполняет command.com. А вот CMD - это более новый формат, его выполняет cmd.exe. Поэтому лучше использовать расширение CMD.
BAT и CMD не понимают вложенный if (то есть if может быть только на 1 уровне). Поэтому чтобы сделать условия, приходится рисовать блок-схему и расставлять везде GO TO. Да-да, ту самую блок-схему, которую ещё во времена "Мифического человеко-месяца" рисовали уже после завершения проекта.
@echo off нужно, чтобы bat-ник не писал вызовы на экран.
rem - это строка комментария.
Если написать в файле script1.bat строку script2 (причём script2.bat существует - т.е. мы вызываем его как команду), то script2.bat запустится, а script1.bat - прекратит выполнение. Чтобы не прекращал, надо писать EXEC script2.
Переход в директорию, где лежит скрипт - cd %~dp0.
Можно поставить cygwin и наслаждаться *nix-овой командной строкой под Windows. Кстати, там можно вкладывать сколько угодно If-ов. А ещё можно поставить ActivePerl. К сожалению, писать скрипт прямо в командной строке у Perl под Windows не получится - не такой стандарт для кавычек.
Параметры командной строки лежат в переменных %1..%9. %0 - имя скрипта (без расширения). %10 и больше - нет.
Включать-выключать сервисы из пакетных файлов - это просто: Проверить:
```
SC QUERY "XService" | find "RUNNING"
IF not "%ERRORLEVEL%" == "0" GOTO StartService
................
:StartService
```
Запустить:
```
NET START "XService"
```
Остановить:
```
NET STOP "XService"
```
Откомпилировать и запустить пример для wxWidget:
- Cоздаём в каталоге, прописанном в AUTOEXEC, вот такой makesample.cmd
```
@echo off
make -f makefile.bcc
for %%f in (*.exe) do start %%f
exit
```
- Заходим в каталог с файлами
- Запускаем (нужно, чтобы был установлен компилятор make)

вторник, 19 марта 2013 г.

четверг, 22 ноября 2012 г.

понедельник, 18 июня 2012 г.

пятница, 8 июня 2012 г.

суббота, 12 мая 2012 г.

вторник, 8 мая 2012 г.

суббота, 28 апреля 2012 г.