User:Hleinola

Quest lahendus 37 - Skript, mis leiab etteantud kataloogist kõik katkised nimelingid [Bash]

#!/bin/bash
#Autor: Henrik Leinola
#Versioon: 0.1

OODATUD_ARGU=1
REKURSIIVSELT="-r"

die () {
	echo >&2 "$@"
	exit 1
}

if [ $# -lt $OODATUD_ARGU ]; then
	die "Kasutamine:" $0 "ja kataloogi nimi."
fi

if [ ! -d $1 ]; then
	die "Tegemist ei ole kataloogiga."	 
fi

if [ $# -gt $OODATUD_ARGU ]; then

	if [ $2 == $REKURSIIVSELT ]; then
		find $1 -type l ! -exec test -r {} \; -print 2>/dev/null
	else 
		die "Rekursiivselt otsimiseks kasuta -r argumenti."
	fi
else
	ind $1 -maxdepth 1 -type l ! -exec test -r {} \; -print 2>/dev/null
fi
exit 0

Powershell kodutöö

#Skript, eemaldab mp3 faili nimest alakriipsud ja muudab kõikide sõnade esimese tähe suureks
#Autor: Henrik Leinola

Param($Path)

$Extension = "mp3"

if (Test-Path $Parth)
{
       cd $Path
       $AllFiles = Get-ChildItem . *.$Extension | % { [IO.Path]::GetFileNameWithoutExtension($_) }
}
else
{
       Write-Host "Sellist kausta ei eksisteeri"
       exit
}

foreach ($File in $AllFiles) {
       $String = $File.ToString()
       $String = $String -replace '_',' '
       $String = $String.ToLower()
       $String = (Get-Culture).TextInfo.ToTitleCase($String)
       Rename-Item "$File.$Extension" "$String.$Extension"
}

cd ..