« gaidžiai | | alkoturizmas »
gal kas mokate parašyti sh script'ą kurio sąlyga: įvedame žodį, tada įvedame krūvą žodžių ir iš jų išrenkame tuos kurie sudaryti iš pirmo žodžio raidžių. ačiū mokslinčiams kurie man padės.
Posted by adomas at 12:38 PM | Permalink
čia /bin/bash ar C:\windows\system\command.com?
enc | October 20, 2005 2:36 PM
bash
adomas | October 20, 2005 3:27 PM
vien su bash sunkoka, bet jei galima naudot awk-ą, tai gal padėčiau. dar reikia?
s2 | January 2, 2006 7:08 PM
nu šiaip pasitikrinau, tai neprireikė to AWK-o, bet teko naudoti sort-ą. va rezultatai, tik gaila byškį susi-wordwrap-ino:
-- #!/bin/bash
read -a pg_zodziai -p 'pagr. zodzio ivedimas: ' pagr_zodis=${pg_zodziai[0]} unset pg_zodziai ilgis=${#pagr_zodis}
if [ $ilgis -le 0 ]; then exit 1; fi
raides=$(( for ((i=0; i<ilgis; i++)); do echo ${pagr_zodis:i:1} done; ) | sort | uniq)
echo 'ieskosim pagal raides: '$raides'.' read -a kt_zodziai -p 'kitu zodziu invedimas: '
for zodis in "${kt_zodziai[@]}"; do for raide in $raides; do if [ ${zodis:0:1} = $raide ]; then echo $zodis; fi done; done;
s2 | January 2, 2006 8:19 PM
čia /bin/bash ar C:\windows\system\command.com?
enc | October 20, 2005 2:36 PM
bash
adomas | October 20, 2005 3:27 PM
vien su bash sunkoka, bet jei galima naudot awk-ą, tai gal padėčiau. dar reikia?
s2 | January 2, 2006 7:08 PM
nu šiaip pasitikrinau, tai neprireikė to AWK-o, bet teko naudoti sort-ą. va rezultatai, tik gaila byškį susi-wordwrap-ino:
--
#!/bin/bash
read -a pg_zodziai -p 'pagr. zodzio ivedimas: '
pagr_zodis=${pg_zodziai[0]}
unset pg_zodziai
ilgis=${#pagr_zodis}
if [ $ilgis -le 0 ]; then exit 1; fi
raides=$((
for ((i=0; i<ilgis; i++)); do
echo ${pagr_zodis:i:1}
done;
) | sort | uniq)
echo 'ieskosim pagal raides: '$raides'.'
read -a kt_zodziai -p 'kitu zodziu invedimas: '
for zodis in "${kt_zodziai[@]}"; do
for raide in $raides; do
if [ ${zodis:0:1} = $raide ]; then echo $zodis; fi
done;
done;
s2 | January 2, 2006 8:19 PM