Σχετικά με ελληνικό εννοιολογικό λεξικό

Raoul raoul at raoul.shacknet.nu
Wed Mar 1 09:50:39 EET 2006


On Tue, 2006-02-28 at 20:54 +0200, Giorgos Keramidas wrote:

>     my $mikrh_trixwth_parafyada_fteroy = sub {
>         my @mwb_xnoydwto_toixaki = @_;
> 
>         foreach $prasinwpo_ptyxwma_rompas_kswtikoy (@mwb_xnoydwto_toixaki) {
> 	    ... }
>     };

lol! Όρεξη να 'χει να γράφει κανείς! :-)

Μιας και ανέφερες την python, μάλλον προς τα εκεί προσανατολίζομαι μετά
από διάφορα πράγματα που διάβασα. Αλλά και η Perl δεν μου φάνηκε πολύ
δύσκολη, τουλάχιστον στα βασικά. Μια γενική ερώτηση έχω: Οι regular
expressions δεν είναι οι ίδιες πχ στις perl, python, php?

Σχετικά με το script, επειδή, όπως είναι φυσικό, είναι αδύνατο να μάθει
κάποιος Perl σε ένα απόγευμα, έκανα άλλη μια προσπάθεια για ένα bash
script. Μετά από αρκετό παίδεμα και αφού έπρηξα μερικούς ανθρώπους στο
irc για τη χρήση του xargs, κατέληξα στο παρακάτω, το οποίο δείχνει να
δουλεύει:

============================================
#! /bin/bash

my_word=$(echo "$1" | iconv -f utf-8 -t iso-8859-7)

curl -s -d "target_dict=1&the_word=$my_word"
http://www.komvos.edu.gr/dictonlineplsql/simple_search.search \
	| grep '<option' \
	| sed 's/^<option value="\([^"]\+\)">'$my_word'.*$/\1/' \
	| xargs -i{} sh -c "curl -s -d \"target_dict=1&the_lemma_id={}\"
http://www.komvos.edu.gr/dictonlineplsql/simple_search.display_full_lemma;" \
	| iconv -f iso-8859-7 -t utf-8 \
	| sed -e 's/<[^>]*\?>//g' -e 's/^\s\+.*$//' -e '/^$/d;G'

exit 0
============================================

Χρήση πχ : ./leksiko.sh λέξη

Προϋποθέτει τη χρήση utf-8 στο terminal.

Το xargs δεν έχω πολυκαταλάβει γιατί πρέπει να χρησιμοποιηθεί έτσι (το
-i{} κυρίως). θα διαβάσω καλύτερα το man page μόλις έχω χρόνο).

Επιπλέον το
sed '/^$/d;G'
το χρησιμοποίησα αυτούσιο από κάποιο tip από το internet (αφήνει μια
κενή γραμμή ανάμεσα στις μη-κενές γραμμές και προϋποθέτει την ύπαρξη
κενών γραμμών στο αρχικό αρχείο). Δεν καταλαβαίνω το ρόλο του ;G (αλλά
θα το ψάξω κι αυτό).

Αν έχει να προτείνει κανείς κάποιον καλύτερο τρόπο σε bash, τα σχόλια
είναι ευπρόσδεκτα.





More information about the Linux-greek-users mailing list