Script

Материал из Synergy
Перейти к: навигация, поиск

Flac

Как массово конвертнуть flac файлы в mp3?

#!/bin/bash
for a in *.flac
do
OUTF=`echo "$a" | sed s/.flac$/.mp3/g`
ARTIST=`metaflac "$a" --show-tag=ARTIST | sed s/.*=//g`
TITLE=`metaflac "$a" --show-tag=TITLE | sed s/.*=//g`
ALBUM=`metaflac "$a" --show-tag=ALBUM | sed s/.*=//g`
GENRE=`metaflac "$a" --show-tag=GENRE | sed s/.*=//g`
TRACKNUMBER=`metaflac "$a" --show-tag=TRACKNUMBER | sed s/.*=//g`
DATE=`metaflac "$a" --show-tag=DATE | sed s/.*=//g`
flac -c -d "$a" | lame -m j -q 0 --vbr-new -V 0 -s 44.1 - "$OUTF"
id3 -t "$TITLE" -T "${TRACKNUMBER:-0}" -a "$ARTIST" -A "$ALBUM" -y "$DATE" -g "${GENRE:-12}" "$OUTF"
done

Взято с АрчВики

Perl

Суммируем квадраты чисел и ищем совпадения

#!/usr/bin/perl -w
use strict;
use List::Util qw(reduce);
 
my (@all_sums_squares, %squares, @squar);
# compute a^2 + b^2
sub sum_of_squares {
  reduce { $a + $b **2 } 0, @_;
  }
 
my @rng = (1..2999);
#get 1-st element of the range
my $one = $rng[0];
 
foreach $a($one..$#rng) {
  foreach $b($one..$#rng) {
  push (@all_sums_squares, sum_of_squares($a, $b));
 
  if ($a == $b) {push (@squar, $a*$b)};
  }
}
 
%squares = map { $_ => 1 } @all_sums_squares;
 
foreach (@squar) {
 if ($squares{$_})
  {print sqrt($_), "\n";} 
}