User:Sgorjuno: Difference between revisions
From ICO wiki
Jump to navigationJump to search
Created page with '<source lang="bash"> #!/bin/bash #Autor: Sergei Gorjunov, A21, sgorjuno@itcollege.ee #Versioon 0.2 # # Pildi ühendamine videosse (video-slideshow) # See skript otsib pilte aadre…' |
|||
(5 intermediate revisions by the same user not shown) | |||
Line 1: | Line 1: | ||
<source lang="bash"> | = Bash = | ||
<source lang="bash"> | |||
#!/bin/bash | #!/bin/bash | ||
#Autor: Sergei Gorjunov, A21, sgorjuno@itcollege.ee | #Autor: Sergei Gorjunov, A21, sgorjuno@itcollege.ee | ||
Line 9: | Line 10: | ||
# ühendab pildid videoks ja kustutab kõik piltide koopiad. | # ühendab pildid videoks ja kustutab kõik piltide koopiad. | ||
# Kõige parem on kui pildid on ühesuurused. | # Kõige parem on kui pildid on ühesuurused. | ||
if [ "$1" = "" ]; then | if [ "$1" = "" ]; then | ||
echo "Kirjutage kausta aadress mis sisaldab pilte" | echo "Kirjutage kausta aadress mis sisaldab pilte" | ||
Line 17: | Line 18: | ||
exit 1 | exit 1 | ||
fi | fi | ||
if [ "$1" = "-h" ]; then | if [ "$1" = "-h" ]; then | ||
echo "Script on lihtne (on vaja ainult 1 argument - pildikausta aadress)" | echo "Script on lihtne (on vaja ainult 1 argument - pildikausta aadress)" | ||
exit 0 | exit 0 | ||
fi | fi | ||
# ffmpeg kodeki paigaldamine | # ffmpeg kodeki paigaldamine | ||
dpkg --status ffmpeg | grep -q not-installed | dpkg --status ffmpeg | grep -q not-installed | ||
if [ $? -eq 0 ]; then | if [ $? -eq 0 ]; then | ||
if [ "$UID" -ne 0 ]; then { | |||
sudo apt-get install ffmpeg | |||
} | |||
else { | |||
apt-get install ffmpeg | |||
} | |||
fi | |||
fi | fi | ||
# töökausta loomine | # töökausta loomine | ||
if [ ! -d "$HOME/video" ]; then | if [ ! -d "$HOME/video" ]; then | ||
Line 40: | Line 47: | ||
chmod o-rwx $HOME/video | chmod o-rwx $HOME/video | ||
fi | fi | ||
# pildi otsing ja nende kopeerimine töökausta | # pildi otsing ja nende kopeerimine töökausta | ||
echo "piltide otsing..." | echo "piltide otsing..." | ||
find $1 -name "*.jpg" -exec cp {} $HOME/video \; | find $1 -name "*.jpg" -exec cp {} $HOME/video \; | ||
cd $HOME/video | cd $HOME/video | ||
# ümber nimetamine (to format "xxx.jpg") | # ümber nimetamine (to format "xxx.jpg") | ||
Line 61: | Line 68: | ||
ffplay video.avi | ffplay video.avi | ||
exit 0 | exit 0 | ||
</source> | |||
= Python = | |||
<source lang="python"> | |||
#!/usr/bin/python | |||
# -*- coding: utf-8 -*- | |||
#Autor: Sergei Gorjunov, A21, sgorjuno@itcollege.ee | |||
#Versioon 0.3 | |||
# | |||
# Skript, mis lisab 1 rida failis. | |||
import locale, codecs; locale.setlocale(locale.LC_ALL, '') | |||
encoding = "utf-8" | |||
import os.path | |||
import sys; reload(sys); sys.setdefaultencoding(encoding) | |||
try: | |||
fail = sys.argv[1] | |||
rida = sys.argv[2] | |||
reanumber = sys.argv[3] | |||
except IndexError: | |||
print 'Pole argumente. Näide: ./script.py /txt/faili/aadress/ "mis on vaja kirjutada" faili reanumber' | |||
sys.exit() | |||
reanumber = int(reanumber) # reanumber täisarvuks konverteerimine | |||
l = [] | |||
#kui fail on, salvestan kõik, mis failis oli | |||
if os.path.isfile(fail): | |||
f = open(fail , 'r') | |||
l = f.readlines() | |||
s = unicode( rida, "utf-8" ) #tähetabeli kodeering | |||
l.insert(reanumber-1, s+"\n") #lisan rida | |||
# faili salvestamine | |||
f = open(fail , 'w') | |||
for x in l: | |||
f.write(x) | |||
f.close() | |||
</source> | |||
= Powershell = | |||
<source lang="powershell"> | |||
#Autor: Sergei Gorjunov A21, sgorjuno@itcollege.ee | |||
#Versioon: 0.1 | |||
#Skript, mis loob uut kasutajat. | |||
function CreateUser ($Name, $Password){ | |||
trap {"Error......"; break} #Kui mingid vead on | |||
$computer = [ADSI]"WinNT://$env:computername" | |||
$user = $computer.Create("user", $Name) | |||
$user.SetPassword($Password) | |||
$user.SetInfo() | |||
Write-Host "Uus kasutaja on tehtud..." | |||
} | |||
$I=0 | |||
$Name = Read-Host "Kirjutage uus kasutaja nimi: " | |||
do{ | |||
$Password = Read-Host "Uus kasutaja pass: " | |||
$Confirm = Read-Host "Pass veel kord: " | |||
if ($Password -eq $Confirm){ | |||
$I=1 | |||
}else{ | |||
Write-Host "Salasonad on erinevad. Proovi veel kord." | |||
} | |||
}while($I -eq 0) | |||
CreateUser ($Name, $Password) | |||
</source> | |||
= Powershell arvestuseks = | |||
<source lang="powershell"> | |||
# Powershell | |||
# Versioon: 2.0 | |||
# Autor: Sergei Gorjunov | |||
# Kuupaev: 28.05.2011 | |||
# | |||
# Skript kontrollib, kas programm töötab voi mitte. | |||
param ([string]$nimi) | |||
if ($nimi -eq ""){ | |||
Write-Host "Pole argumente. Kirjutage programmi nimi. Näiteks: .\open_close.ps1 -nimi notepad" | |||
exit | |||
} | |||
$process = Get-Process $nimi -ea SilentlyContinue | |||
if ($process){ | |||
Write-Host $nimi " töötab" | |||
} | |||
else{ | |||
Write-Host "programm ei tööta" | |||
} | |||
</source> | </source> |
Latest revision as of 17:08, 1 June 2011
Bash
#!/bin/bash
#Autor: Sergei Gorjunov, A21, sgorjuno@itcollege.ee
#Versioon 0.2
#
# Pildi ühendamine videosse (video-slideshow)
# See skript otsib pilte aadressist, kopeerib neid töökausta,
# muudab pildide nimed (001.jpg 002.jpg 003.jpg jne). Järgmiselt
# ühendab pildid videoks ja kustutab kõik piltide koopiad.
# Kõige parem on kui pildid on ühesuurused.
if [ "$1" = "" ]; then
echo "Kirjutage kausta aadress mis sisaldab pilte"
echo "Naiteks: ./script.sh /pildikausta/aadress/"
echo "-h abi"
exit 1
fi
if [ "$1" = "-h" ]; then
echo "Script on lihtne (on vaja ainult 1 argument - pildikausta aadress)"
exit 0
fi
# ffmpeg kodeki paigaldamine
dpkg --status ffmpeg | grep -q not-installed
if [ $? -eq 0 ]; then
if [ "$UID" -ne 0 ]; then {
sudo apt-get install ffmpeg
}
else {
apt-get install ffmpeg
}
fi
fi
# töökausta loomine
if [ ! -d "$HOME/video" ]; then
echo "töökausta loomine..."
mkdir $HOME/video
# omaniku muutmine
chown $USER $HOME/video
# ainult omanik saab kasutada kausta
chmod u+rwx $HOME/video
chmod g-rwx $HOME/video
chmod o-rwx $HOME/video
fi
# pildi otsing ja nende kopeerimine töökausta
echo "piltide otsing..."
find $1 -name "*.jpg" -exec cp {} $HOME/video \;
cd $HOME/video
# ümber nimetamine (to format "xxx.jpg")
I=1
for F in *.jpg; do
mv "$F" `printf %03d.jpg $I` 2>/dev/null || true
I=$((I + 1))
done
echo "Mille kiirusega kaadrite muuta (minimum ja optimaalne 0.2):"
read KIIRUS
# kogu piltide ühendamine videoks
echo "video loomine..."
ffmpeg -r $KIIRUS -i %03d.jpg video.avi
find -name "*.jpg" -exec rm -rf ./{} \;
# video mängimine
ffplay video.avi
exit 0
Python
#!/usr/bin/python
# -*- coding: utf-8 -*-
#Autor: Sergei Gorjunov, A21, sgorjuno@itcollege.ee
#Versioon 0.3
#
# Skript, mis lisab 1 rida failis.
import locale, codecs; locale.setlocale(locale.LC_ALL, '')
encoding = "utf-8"
import os.path
import sys; reload(sys); sys.setdefaultencoding(encoding)
try:
fail = sys.argv[1]
rida = sys.argv[2]
reanumber = sys.argv[3]
except IndexError:
print 'Pole argumente. Näide: ./script.py /txt/faili/aadress/ "mis on vaja kirjutada" faili reanumber'
sys.exit()
reanumber = int(reanumber) # reanumber täisarvuks konverteerimine
l = []
#kui fail on, salvestan kõik, mis failis oli
if os.path.isfile(fail):
f = open(fail , 'r')
l = f.readlines()
s = unicode( rida, "utf-8" ) #tähetabeli kodeering
l.insert(reanumber-1, s+"\n") #lisan rida
# faili salvestamine
f = open(fail , 'w')
for x in l:
f.write(x)
f.close()
Powershell
#Autor: Sergei Gorjunov A21, sgorjuno@itcollege.ee
#Versioon: 0.1
#Skript, mis loob uut kasutajat.
function CreateUser ($Name, $Password){
trap {"Error......"; break} #Kui mingid vead on
$computer = [ADSI]"WinNT://$env:computername"
$user = $computer.Create("user", $Name)
$user.SetPassword($Password)
$user.SetInfo()
Write-Host "Uus kasutaja on tehtud..."
}
$I=0
$Name = Read-Host "Kirjutage uus kasutaja nimi: "
do{
$Password = Read-Host "Uus kasutaja pass: "
$Confirm = Read-Host "Pass veel kord: "
if ($Password -eq $Confirm){
$I=1
}else{
Write-Host "Salasonad on erinevad. Proovi veel kord."
}
}while($I -eq 0)
CreateUser ($Name, $Password)
Powershell arvestuseks
# Powershell
# Versioon: 2.0
# Autor: Sergei Gorjunov
# Kuupaev: 28.05.2011
#
# Skript kontrollib, kas programm töötab voi mitte.
param ([string]$nimi)
if ($nimi -eq ""){
Write-Host "Pole argumente. Kirjutage programmi nimi. Näiteks: .\open_close.ps1 -nimi notepad"
exit
}
$process = Get-Process $nimi -ea SilentlyContinue
if ($process){
Write-Host $nimi " töötab"
}
else{
Write-Host "programm ei tööta"
}