Ubuntu Sverige

Kod: Markera allt

#!/bin/bash

syn ()
{
 lynx -dump \
 "http://www.synonymer.se/?query=${conv}&btnS=Hitta+synonymer" \
 | sed -e :a -e '$d;N;2,24ba' -e 'P;D' | grep ${1} -A 10 \
 > /tmp/tempsyn.txt
 
         if [[ -s  /tmp/tempsyn.txt ]] ;then
            until ! read response
               do
               echo "${response}"
               done < /tmp/tempsyn.txt
            else
               echo "Ledsen $USER, kan inte hitta \"${1} \""
         fi
rm -f /tmp/tempsyn.txt
}
conv=`echo $1 | iconv -f UTF8 -t ISO_8859-1`
syn $conv

Kod: Markera allt

#!/bin/sh
# Skapare: Xappe, 2009
# Synoclip, ett verktyg för att söka efter svenska synonymer på
# http://www.synonymer.se
# Användning: Markera ett ord och kör skriptet.
# Beroenden: xclip, lynx

syn ()
{
 lynx -dump \
 "http://www.synonymer.se/?query=${conv}&btnS=Hitta+synonymer" \
 | sed -e :a -e '$d;N;2,24ba' -e 'P;D' | grep ${conv} -A 10 \
 > /tmp/tempsyn.txt
 
         if [[ -s  /tmp/tempsyn.txt ]] ;then
            until ! read response
               do
               echo "${response}"
               done < /tmp/tempsyn.txt
            else
              echo "Ledsen $USER, kan inte hitta \"${conv}\"" 
         fi
rm -f /tmp/tempsyn.txt
}
ord=`xclip -o`
conv=`echo $ord | tr ’A-ZÅÄÖ’ ’a-zåäö’ | iconv -t ISO_8859-1`
syn $conv

Kod: Markera allt

#!/bin/sh
# Skapare: Xappe, 2009
# Synoclip, ett verktyg för att söka efter svenska synonymer på
# http://www.synonymer.se
# Användning: Markera ett ord och kör skriptet.
# Beroenden: xclip, lynx
syn ()
{
 tempfil=$$.tmp
 lynx -dump \
 "http://www.synonymer.se/?query=${conv}&btnS=Hitta+synonymer" \
 | sed -e :a -e '$d;N;2,24ba' -e 'P;D' | grep ${conv} -A 10 \
 > /tmp/$tempfil
 
         if [[ -s  /tmp/$tempfil ]] ;then
            until ! read response
               do
               echo "${response}"
               done < /tmp/$tempfil
            else
              echo "Ledsen $USER, kan inte hitta \"${conv}\"" 
         fi
rm -f /tmp/$tempfil
}
ord=`xclip -o`
conv=`echo $ord | tr ’A-ZÅÄÖ’ ’a-zåäö’ | iconv -t ISO_8859-1`
syn $conv |iconv -f ISO_8859-1 -t UTF-8 |less

Kod: Markera allt

#!/usr/bin/perl
#
# Söka efter svenska synonymer på http://www.synonymer.se
# Beroenden: perl, xclip, wget
use warnings;
use strict;
use Getopt::Long;
use Text::Iconv;

my $usage = "Användning: mysynonym [FLAGGOR] [ORD]
  --clip   Hämta ord från klippbordet
  --help   Visa denna text";

# Analysera flaggor
my $clip = 0;
GetOptions("clip"  => \$clip,
           "help"  => sub{ die "$usage\n"; }
           ) or exit 1; # felaktig flagga

# Hämta ett ord från kommandoraden (@ARGV) eller klippbordet (xclip -o)
my $word;
if ($clip) {
    open(FH, "xclip -o |") or die $!;
    $word = <FH>;
    close(FH);
    die "Orimlig text i klippbordet\n"  if length($word)>40;
} else {
    $word = shift(@ARGV);
}

# Ska bara vara ett argument på kommandoraden (eller inget om --clip)
die "Fel antal argument\n"  if $#ARGV != -1 || not $word;

# Mappa html-taggar till färgkoder
my $blue   = "\e[34;1m";
my $lila   = "\e[35m";
my $normal = "\e[0m";

my %tagmap=("i"     => $blue,     # fras
	    "/i"    => $normal,
	    "b"     => $blue,     # alternativ-siffra
	    "/b"    => $normal,
	    "font"  => $lila,     # grammatisk klass
	    "/font" => $normal,
	    );

# Konverterare till och från latin1 (www.synonymer.se antas vara latin1)
# Kodning "" borde betyda användarens eller systemets aktuella kodning
# (Konverterarna skapas här men används senare)
my $tolatin1   = Text::Iconv->new("", "ISO-8859-1");
my $fromlatin1 = Text::Iconv->new("ISO-8859-1", "");

# Konvertera åäö till latin1 i $word2, behåll originalet $word
my $word2 = $tolatin1->convert($word) || $word;

# Konvertara åäö och mellanslag etc till %HEX-koder för url:en
$word2 =~ s/([^\w])/sprintf("%%%X",ord($1))/ge;

# Anropa synonym-tjänsten. Pipa svaret i filhandtaget FH
my $url = "http://www.synonymer.se/?query=$word2";
open(FH, "wget --quiet -O- '$url' |") || die $!;

# Analysera html-svaret. Dela upp i tabell-celler.
$/ = "<TD";
while (<FH>) {
    # Om inga hittas står nånstans "0 synonymer hittades för din sökning."
    if (/0 synonymer hittades/) {
	die "Inga synonymer hittades: $word\n";
    }
    # Om nåt hittades finns svaren i html-element märkta
    # med attribut class="ord" för uppslagsord och class="synonym" för synonym
    if (/class="ord">(.*?)</i) {
	my $def = $fromlatin1->convert($1);
	print "$blue$def$normal: ";
    }
    if (/class="synonym">(.*)<\/tr/im) {
	my $def = $fromlatin1->convert($1);
	# Konvertera bold, italic, font och ta bort all annan html-formattering
	$def =~ s/<(\/?\w+).*?>/($tagmap{lc($1)}||"")/eg;
	print "$def\n";
    }
}

close(FH);