Runeberg

runeberg@lists.lysator.liu.se

9 participants
348 discussions

VB: Re: Re: [Runeberg] SV: [Runeberg] Vill du hjälpa Projekt Runeberg programmera?
by Ulf Härnhammar 04 Feb '04

04 Feb '04

----- Vidarebefordrat meddelande från segfault(a)chello.se ----- Datum: Wed, 4 Feb 2004 14:40:44 +0100 Från: segfault(a)chello.se Svar till: segfault(a)chello.se Ämne: Re: Re: [Runeberg] SV: [Runeberg] Vill du hjälpa Projekt Runeberg programmera? Till: Ulf Härnhammar <Ulf.Harnhammar.9485(a)student.uu.se> > \w ska ju vara den typ av tecken som förekommer i ord. Du kanske måste ställa in > någon miljövariabel så att \w passar in på rätt tecken? Annars kan man ju skriva > [A-Za-zÅÄÖÉÜåäöéü] i stället för \w. Ursäkta om någon har svarat på detta förut, men i bash skriver du: export LANG="sv_SE" och i perl programmet: use locale; då komemr åäö att fungera ----- Slut på vidarebefordrat meddelande ----- -- Ulf Härnhammar student, Uppsala universitet redaktör, idiosynkratisk ( http://labben.abm.uu.se/~ulha9485/idiosynkratisk/ )

1 0

avstavning från pgdp
by segfault＠chello.se 04 Feb '04

04 Feb '04

Ett sådant program finns redan, men skulle behöva förbättringar för att fungera bra med svenska regler. Själv använder jag mig utav en kraftigt nerbantad variant Steves GUI: http://mywebpages.comcast.net/thundergnat/guiprep.html Mitt fulhack: http://bok.nu/~erik/dl/pgdp_hyphen.tar Jag tror säkert att ni kan förbättra detta mycket och kanske ge Steve förbättringarna så att de kan köras in i programmet, eftersom 200 böcker/månad använder detta program så är ju alla förbättringar varmt välkomna. Ursäkta att jag inte har mailat här innan, men läser inte ofta här. MvH Erik Johansson

1 0

Happy Birthday
by Lars Aronsson 03 Feb '04

03 Feb '04

Project Runeberg, On Feburary 5, we celebrate the 200th anniversary of the birth of Johan Ludvig Runeberg. Project Runeberg's front page has been updated to remind everybody about this, http://runeberg.org/ If you live in Finland, where "J.L." has the status of national poet, you can buy "Runeberg's cupcakes", a special kind of pastry at cafes. If you cannot get this, I suggest you try to find the some replacement cake or cookies, and have a look at the official celebration website at http://www.runeberg.net/ Or you can bake your own. Here is the recipe in English, http://www.dlc.fi/~marianna/gourmet/15_21.htm -- Lars Aronsson (lars(a)aronsson.se) Project Runeberg - free Nordic literature - http://runeberg.org/

1 0

webserverproblem
by Lars Aronsson 01 Feb '04

01 Feb '04

Projekt Runeberg, Redan nu verkar den nya servern vara igång. Det kan ta några timmar innan DNS-systemet* hinner uppdateras. Om man inte får något svar på www.lysator... så kan man prova att ändra i adressfältet till sherman.lysator... i stället, t.ex. http://sherman.lysator.liu.se/runeberg/muslex/0017.html Detta gäller alltså om man nödvändigt måste titta på en sida idag. Ändra **inte** länkarna till "sherman" i några webbsidor. Korrekturläsning, "Recent changes" och liknande som drivs av scripts, fungerar för närvarande inte, men kommer förhoppningsvis igång snart. *) DNS eller Domain Name System är Internets infrastruktur för översättning av domännamn (www.lysator.liu.se) till numeriska IP-adresser (130.236.254.42). Hittills har "www.lysator" översatts till Lenins adress (...25) och nu ändras detta till Sherman (...42). Det tar emellertid några timmar (eller dygn) innan en sådan ändring hinner slå igenom överallt. Varje Internet-operatör har sin egen kopia av delar av översättningsdatabasen, som uppdateras med en viss eftersläpning. Frågan är nu om vi måste bygga ett mausoleum när Lenin dödförklaras... -- Lars Aronsson (lars(a)aronsson.se) Projekt Runeberg - fri nordisk litteratur - http://runeberg.org/

1 0

webbserverproblem
by Lars Aronsson 01 Feb '04

01 Feb '04

Projekt Runeberg, English summary below. Idag söndag 1 februari skall Lysator byta webbserver. Detta kan innebära att Projekt Runeberg (www.lysator.liu.se/runeberg) kan vara otillgängligt under en tid och att vissa "scripts" (t.ex. korrekturläsning) kan sluta fungera. Bytet har varit planerat en längre tid, men fördröjts av olika skäl. Nu har den gamla servern ("Lenin") emellertid fått hårdvaruproblem, varför bytet till Lysators nya server ("Sherman") påskyndas. Projekt Runebergs wiki (http://runeberg.org/wiki/) påverkas inte av ändringen. Wikin kör nämligen redan på Projekt Runebergs egen server ("Fatabur"), dit vi kommer att flytta hela vårt projekt. Det handlar alltså om två olika flyttar. ENGLISH SUMMARY: Project Runeberg expects web server problems today, Sunday February 1, and possibly the next few days. Scripts such as the one for proofreading might stop to work, and the whole website might be unavailable at times. This is because a long planned move from one webserver ("Lenin") to another ("Sherman") has been speeded up because of hardware problems. Project Runeberg's wiki (http://runeberg.org/wiki/) is not affected by this, since it runs on Project Runeberg's own new server ("Fatabur"), to which we hope to move our entire project in the near future. -- Lars Aronsson (lars(a)aronsson.se) Projekt Runeberg - fri nordisk litteratur - http://runeberg.org/

1 0

Re: Runeberg digest, Vol 1 #52 - 8 msgs
by Claes Schibler 30 Jan '04

30 Jan '04

GRABBAR Å TJEJJER TRIMMA ERA SVAR MED HÄSYN TILL LÄSARNA - MOTTAGARNA.... EN FÖRSKRÄCKLIG MASSA "SKRÄP" SOM FÖLJER MED NU.... KLASSE I STÅKKHÅLM

1 0

Vill du hjälpa Projekt Runeberg programmera?
by Ulf Härnhammar 29 Jan '04

29 Jan '04

Hej, här är en annan lösning på programmeringsproblemet. Den är också skriven i Perl, och den har följande finesser: - bibehållning av vänstermarginal - förminska första bokstaven på nästa rad ("Väst-Tyskland" blir "Västtyskland") Det går att slå av och på denna funktion - hantering av avstavade ord i slutet på filen (med vänstermarginalen bibehållen) -- Ulf Härnhammar student, Uppsala universitet redaktör, idiosynkratisk ( http://labben.abm.uu.se/~ulha9485/idiosynkratisk/ )

4 6

Vanskeligt at forstå det svenske sprog
by Ejvind Christensen 28 Jan '04

28 Jan '04

Jeg har modtaget flere mails om hvordan man kan (eller er det skal) redigere i de tekster som man læser korrektur på. Desværre er jeg stærkt i tvivl om den præcis mening i de modtagne mails, og håber at jeg ikke har gjort noget forkert i de sider som jeg allerede har læst korrektur på. Hvis der er nogle af de af mig korrekturlæste sider der er behandlet forkert af mig, så ser jeg hen til en nærmere uddybning af de af mig foretagne fejl. Alternativt må jeg ophøre med at korrekturlæse for andre end mig selv. Med venlig hilsen Ejvind A. Christensen Rolighedsvej 23 DK-6520 Toftlund Telf. +45 7483 0661 http://www.varla.dk/ > -----Oprindelig meddelelse----- > Fra: runeberg-admin(a)lists.lysator.liu.se > [mailto:runeberg-admin@lists.lysator.liu.se]På vegne af > runeberg-request(a)lists.lysator.liu.se > Sendt: 28. januar 2004 12.00 > Til: runeberg(a)lists.lysator.liu.se > Emne: Runeberg digest, Vol 1 #49 - 5 msgs > > > Send Runeberg mailing list submissions to > runeberg(a)lists.lysator.liu.se > > To subscribe or unsubscribe via the World Wide Web, visit > http://lists.lysator.liu.se/mailman/listinfo/runeberg > or, via email, send a message with subject or body 'help' to > runeberg-request(a)lists.lysator.liu.se > > You can reach the person managing the list at > runeberg-admin(a)lists.lysator.liu.se > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of Runeberg digest..." > > > Today's Topics: > > 1. > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > =?iso-8859-1?Q?ammera=3F?= (Tommy Riboe (E-mail 2)) > 2. > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > =?iso-8859-1?Q?ammera=3F?= (Tommy Riboe) > 3. =?windows-1252?Q? RE: [Runeberg] Vill du hj=E4lpa Projekt > Runeberg progr ammera??= (Ketil Firing Hanssen ) > > --__--__-- > > Message: 1 > Reply-To: <tommy.riboe(a)bbab.se> > From: "Tommy Riboe (E-mail 2)" <tommy.riboe(a)swipnet.se> > To: <runeberg(a)lists.lysator.liu.se> > Date: Wed, 28 Jan 2004 00:48:02 +0100 > Subject: [Runeberg] > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > =?iso-8859-1?Q?ammera=3F?= > > *** omsändning med av listan godkänd mejladress *** > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > skall mitt exempel tas som ett algoritmförslag och kompletteras med > felhantering och liknande. Dessutom har jag säkert missat något > undantagsfall. Det verkar i alla fall fungera med den medföljande > texten utökad med enstaka instanser av mina undantag. > > mvh > Tommy Riboe > > #============================================ > #!/bin/perl > # > # huvudregel: > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > # b) avstavat ord sammanfogas på nästa rad > # c) indrag bibehålles > # > # undantag: > # a) rad som slutar med tankstreck (ensamt '-') > # b) rad som slutar med förled i upprepade sammansatta ord > # c) avstavning i sidans sista rad > # > # vid undantag b) flyttas förledet till följande rad > > > seek(STDIN, 0, SEEK_SET); > $line= ""; > $nextline= ""; > $spill = ""; > > #if (<STDIN>) { > # läs in första raden > $line = <STDIN>; > { > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > } > print $line; > > while (<STDIN>) { > > # testa om nästa rad börjar med "och", "eller" > # (bör mer naturligt placeras efter nästa sats > # och använda sig av $nextline) > if (/^\s*(och|eller).*$/) { > $spill = $spill . "- "; > } > > # förbered nästa rad > $nextline = $_; > > # sätt ihop marginal + spill + nästa_rad > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > # gör nästa rad till aktuell rad > $line = $nextline; > > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > print $line; > } > #} > print "\n(till nästa sida: " . $spill . ")\n"; > #============================================ > > > -----Ursprungligt meddelande----- > > Från: runeberg-admin(a)lists.lysator.liu.se > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > Skickat: den 27 januari 2004 00:00 > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > programmera? > > > > > > Har inte något färdigt program men har följande brott-stycke > > av ett sånt program; > > > > <för varje rad> > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > <matchar om sista tecknet på raden är "-"; > > allt utom det avstavade ordet finns kvar i $1; > > första delen av det avstavade ordet finns i $2> > > > > <nästa rad om matchningen lyckades> > > > > $line = $2 . $line; > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > M v h Bengt > > > > --- > > Bengt J. Olsson > > bengt(a)blafs.com > > http://blafs.com > > > > > > > --__--__-- > > Message: 2 > Reply-To: <tommy.riboe(a)bbab.se> > From: "Tommy Riboe" <tommy.riboe(a)bbab.se> > To: <runeberg(a)lists.lysator.liu.se> > Date: Wed, 28 Jan 2004 00:37:13 +0100 > Subject: [Runeberg] > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > =?iso-8859-1?Q?ammera=3F?= > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > skall mitt exempel tas som ett algoritmförslag och kompletteras med > felhantering och liknande. Dessutom har jag säkert missat något > undantagsfall. Det verkar i alla fall fungera med den medföljande > texten utökad med enstaka instanser av mina undantag. > > mvh > Tommy Riboe > > #============================================ > #!/bin/perl > # > # huvudregel: > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > # b) avstavat ord sammanfogas på nästa rad > # c) indrag bibehålles > # > # undantag: > # a) rad som slutar med tankstreck (ensamt '-') > # b) rad som slutar med förled i upprepade sammansatta ord > # c) avstavning i sidans sista rad > # > # vid undantag b) flyttas förledet till följande rad > > > seek(STDIN, 0, SEEK_SET); > $line= ""; > $nextline= ""; > $spill = ""; > > #if (<STDIN>) { > # läs in första raden > $line = <STDIN>; > { > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > } > print $line; > > while (<STDIN>) { > > # testa om nästa rad börjar med "och", "eller" > # (bör mer naturligt placeras efter nästa sats > # och använda sig av $nextline) > if (/^\s*(och|eller).*$/) { > $spill = $spill . "- "; > } > > # förbered nästa rad > $nextline = $_; > > # sätt ihop marginal + spill + nästa_rad > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > # gör nästa rad till aktuell rad > $line = $nextline; > > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > print $line; > } > #} > print "\n(till nästa sida: " . $spill . ")\n"; > #============================================ > > > -----Ursprungligt meddelande----- > > Från: runeberg-admin(a)lists.lysator.liu.se > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > Skickat: den 27 januari 2004 00:00 > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > programmera? > > > > > > Har inte något färdigt program men har följande brott-stycke > > av ett sånt program; > > > > <för varje rad> > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > <matchar om sista tecknet på raden är "-"; > > allt utom det avstavade ordet finns kvar i $1; > > första delen av det avstavade ordet finns i $2> > > > > <nästa rad om matchningen lyckades> > > > > $line = $2 . $line; > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > M v h Bengt > > > > --- > > Bengt J. Olsson > > bengt(a)blafs.com > > http://blafs.com > > > > > > > --__--__-- > > Message: 3 > From: "Ketil Firing Hanssen " <firing(a)spray.no> > To: runeberg(a)lists.lysator.liu.se > Subject: =?windows-1252?Q? RE: [Runeberg] Vill du hj=E4lpa > Projekt Runeberg progr ammera??= > Date: Wed, 28 Jan 2004 08:28:34 +0100 > > This message is in MIME format. Since your mail reader does not understand > this format, some or all of this message may not be legible. > > --=_NextPart_Lycos_0221701075278514_ID > Content-Type: text/plain; charset="us-ascii" > Content-Transfer-Encoding: 7bit > > Følgende unntak bør tas hånd om: > > Vest- > Tyskland > > Regelen er at neste rad begynner med stor bokstav (evt. unntak > hvis hele ordet er > skrevet med store bokstaver) > > Denne blir vel verre: > > romersk- > katolsk > > > mvh > > Ketil F. Hanssen > > > ------- Original Message ------- > > > > From : Tommy Riboe <tommy.riboe(a)bbab.se> > > Date : Wed, 28 Jan 2004 00:37:13 +0100 > > > >Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > skall mitt exempel tas som ett algoritmförslag och kompletteras med > felhantering och liknande. Dessutom har jag säkert missat något > undantagsfall. Det verkar i alla fall fungera med den medföljande > texten utökad med enstaka instanser av mina undantag. > > mvh > Tommy Riboe > > #============================================ > #!/bin/perl > # > # huvudregel: > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > # b) avstavat ord sammanfogas på nästa rad > # c) indrag bibehålles > # > # undantag: > # a) rad som slutar med tankstreck (ensamt '-') > # b) rad som slutar med förled i upprepade sammansatta ord > # c) avstavning i sidans sista rad > # > # vid undantag b) flyttas förledet till följande rad > > > seek(STDIN, 0, SEEK_SET); > $line= ""; > $nextline= ""; > $spill = ""; > > #if () { > # läs in första raden > $line = ; > { > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > } > print $line; > > while () { > > # testa om nästa rad börjar med "och", "eller" > # (bör mer naturligt placeras efter nästa sats > # och använda sig av $nextline) > if (/^\s*(och|eller).*$/) { > $spill = $spill . "- "; > } > > # förbered nästa rad > $nextline = $_; > > # sätt ihop marginal + spill + nästa_rad > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > # gör nästa rad till aktuell rad > $line = $nextline; > > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > print $line; > } > #} > print "\n(till nästa sida: " . $spill . ")\n"; > #============================================ > > > -----Ursprungligt meddelande----- > > Från: runeberg-admin(a)lists.lysator.liu.se > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > Skickat: den 27 januari 2004 00:00 > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > programmera? > > > > > > Har inte något färdigt program men har följande brott-stycke > > av ett sånt program; > > > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > allt utom det avstavade ordet finns kvar i $1; > > första delen av det avstavade ordet finns i $2> > > > > > > > > $line = $2 . $line; > > > > > > > > M v h Bengt > > > > --- > > Bengt J. Olsson > > bengt(a)blafs.com > > http://blafs.com > > > > > > _______________________________________________ > Runeberg mailing list > Runeberg(a)lists.lysator.liu.se > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > _________________________________________________________ > Finn dine gamle klassekamerater på > http://klassekamerater.nettavisen.no > > > > --=_NextPart_Lycos_0221701075278514_ID > Content-Type: message/rfc822 > Content-Transfer-Encoding: 7bit > Content-Disposition: inline > > Return-Path: <runeberg-admin(a)lists.lysator.liu.se> > Received: from mail.lysator.liu.se (mail.lysator.liu.se [130.236.254.3]) > by lmin04.st1.spray.net (Postfix) with ESMTP id 6BA036F792 > for <firing(a)spray.no>; Wed, 28 Jan 2004 02:37:22 +0100 (MET) > Received: from tokaimura.lysator.liu.se (localhost [127.0.0.1]) > by mail.lysator.liu.se (Postfix) with ESMTP > id 09426D9126; Wed, 28 Jan 2004 02:34:04 +0100 (MET) > Delivered-To: mailmanalias-post+runeberg(a)lysator.liu.se > Received: by mail.lysator.liu.se (Postfix, from userid 1646) > id BC9BED7C9A; Wed, 28 Jan 2004 00:37:32 +0100 (MET) > Received: from amsfep14-int.chello.nl (amsfep14-int.chello.nl > [213.46.243.22]) > by mail.lysator.liu.se (Postfix) with ESMTP id 9889FD7A72 > for <runeberg(a)lists.lysator.liu.se>; Wed, 28 Jan 2004 > 00:37:19 +0100 (MET) > Received: from bbabw2kp2 ([213.89.102.233]) by amsfep14-int.chello.nl > (InterMail vM.6.00.05.02 201-2115-109-103-20031105) with SMTP > id <20040127233715.HAEL18174.amsfep14-int.chello.nl@bbabw2kp2> > for <runeberg(a)lists.lysator.liu.se>; > Wed, 28 Jan 2004 00:37:15 +0100 > Reply-To: <tommy.riboe(a)bbab.se> > From: "Tommy Riboe" <tommy.riboe(a)bbab.se> > To: <runeberg(a)lists.lysator.liu.se> > Message-ID: <048001c3e52e$7e853020$6f00a8c0(a)bbab.local> > MIME-Version: 1.0 > Content-Type: text/plain; > charset="iso-8859-1" > Content-Transfer-Encoding: 8bit > X-Priority: 3 (Normal) > X-MSMail-Priority: Normal > X-Mailer: Microsoft Outlook CWS, Build 9.0.6604 (9.0.2911.0) > In-Reply-To: <000a01c3e460$161a1fb0$bd7ba8c0@OPUS> > X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 > Importance: Normal > X-Spam-Checker-Version: SpamAssassin 2.61-lysator_fetto_1.1 > (1.212.2.1-2003-12-09-exp) on fetto.lysator.liu.se > X-Spam-Level: > X-Spam-Status: No, hits=0.2 required=5.0 > tests=AWL,RCVD_IN_RFCI,RCVD_IN_SORBS > autolearn=no version=2.61-lysator_fetto_1.1 > Subject: [Runeberg] > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > =?iso-8859-1?Q?ammera=3F?= > Sender: runeberg-admin(a)lists.lysator.liu.se > Errors-To: runeberg-admin(a)lists.lysator.liu.se > X-BeenThere: runeberg(a)lists.lysator.liu.se > X-Mailman-Version: 2.0.13 > Precedence: bulk > List-Unsubscribe: <http://lists.lysator.liu.se/mailman/listinfo/runeberg>, > <mailto:runeberg-request@lists.lysator.liu.se?subject=unsubscribe> > List-Id: Projekt Runeberg <runeberg.lists.lysator.liu.se> > List-Post: <mailto:runeberg@lists.lysator.liu.se> > List-Help: <mailto:runeberg-request@lists.lysator.liu.se?subject=help> > List-Subscribe: <http://lists.lysator.liu.se/mailman/listinfo/runeberg>, > <mailto:runeberg-request@lists.lysator.liu.se?subject=subscribe> > List-Archive: <http://lists.lysator.liu.se/pipermail/runeberg/> > Date: Wed, 28 Jan 2004 00:37:13 +0100 > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > skall mitt exempel tas som ett algoritmförslag och kompletteras med > felhantering och liknande. Dessutom har jag säkert missat något > undantagsfall. Det verkar i alla fall fungera med den medföljande > texten utökad med enstaka instanser av mina undantag. > > mvh > Tommy Riboe > > #============================================ > #!/bin/perl > # > # huvudregel: > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > # b) avstavat ord sammanfogas på nästa rad > # c) indrag bibehålles > # > # undantag: > # a) rad som slutar med tankstreck (ensamt '-') > # b) rad som slutar med förled i upprepade sammansatta ord > # c) avstavning i sidans sista rad > # > # vid undantag b) flyttas förledet till följande rad > > > seek(STDIN, 0, SEEK_SET); > $line= ""; > $nextline= ""; > $spill = ""; > > #if (<STDIN>) { > # läs in första raden > $line = <STDIN>; > { > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > } > print $line; > > while (<STDIN>) { > > # testa om nästa rad börjar med "och", "eller" > # (bör mer naturligt placeras efter nästa sats > # och använda sig av $nextline) > if (/^\s*(och|eller).*$/) { > $spill = $spill . "- "; > } > > # förbered nästa rad > $nextline = $_; > > # sätt ihop marginal + spill + nästa_rad > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > # gör nästa rad till aktuell rad > $line = $nextline; > > # avlägsna ord som slutar med bindestreck från > # slutet av raden, med undantag för ensamma > # bindestreck, placera avlägsnad text i $spill > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > $spill = $4; > print $line; > } > #} > print "\n(till nästa sida: " . $spill . ")\n"; > #============================================ > > > -----Ursprungligt meddelande----- > > Från: runeberg-admin(a)lists.lysator.liu.se > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > Skickat: den 27 januari 2004 00:00 > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > programmera? > > > > > > Har inte något färdigt program men har följande brott-stycke > > av ett sånt program; > > > > <för varje rad> > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > <matchar om sista tecknet på raden är "-"; > > allt utom det avstavade ordet finns kvar i $1; > > första delen av det avstavade ordet finns i $2> > > > > <nästa rad om matchningen lyckades> > > > > $line = $2 . $line; > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > M v h Bengt > > > > --- > > Bengt J. Olsson > > bengt(a)blafs.com > > http://blafs.com > > > > > > _______________________________________________ > Runeberg mailing list > Runeberg(a)lists.lysator.liu.se > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > --=_NextPart_Lycos_0221701075278514_ID-- > > > > --__--__-- > > _______________________________________________ > Runeberg mailing list > Runeberg(a)lists.lysator.liu.se > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > End of Runeberg Digest

3 3

Re: Vill du hjälpa Projekt Runeberg programmera?
by Roger Persson 28 Jan '04

28 Jan '04

Ska inte "bindestreck" mellan två ord som börjar med versaler vara ett tankestreck ? /Roger onsdagen den 28 januari 2004 kl 14.14 skrev Bernhard Johanson: > Det finnas faktiskt ett undantag till, nämligen om nästa rad börjar > med en > versal, typ Schleswig-Holstein

1 0

SV: Runeberg digest, Vol 1 #50 - 2 msgs
by Ejvind Christensen 28 Jan '04

28 Jan '04

Jeg takker for det modtagne svar og opfater dette som en bekræftelse på at jeg ikke har misforstået korrekturlæsningen. Med venlig hilsen Ejvind A. Christensen Rolighedsvej 23 DK-6520 Toftlund Telf. +45 7483 0661 http://www.varla.dk/ > -----Oprindelig meddelelse----- > Fra: runeberg-admin(a)lists.lysator.liu.se > [mailto:runeberg-admin@lists.lysator.liu.se]På vegne af > runeberg-request(a)lists.lysator.liu.se > Sendt: 28. januar 2004 13.09 > Til: runeberg(a)lists.lysator.liu.se > Emne: Runeberg digest, Vol 1 #50 - 2 msgs > > > Send Runeberg mailing list submissions to > runeberg(a)lists.lysator.liu.se > > To subscribe or unsubscribe via the World Wide Web, visit > http://lists.lysator.liu.se/mailman/listinfo/runeberg > or, via email, send a message with subject or body 'help' to > runeberg-request(a)lists.lysator.liu.se > > You can reach the person managing the list at > runeberg-admin(a)lists.lysator.liu.se > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of Runeberg digest..." > > > Today's Topics: > > 1. =?iso-8859-1?Q?Vanskeligt_at_forst=E5_det_svenske_sprog?= > (Ejvind Christensen) > 2. Re: Runeberg digest, Vol 1 #49 - 5 msgs (Bernhard Johanson) > > --__--__-- > > Message: 1 > From: "Ejvind Christensen" <ejvind(a)varla.dk> > To: <runeberg(a)lists.lysator.liu.se> > Date: Wed, 28 Jan 2004 12:19:08 +0100 > Subject: [Runeberg] > =?iso-8859-1?Q?Vanskeligt_at_forst=E5_det_svenske_sprog?= > > Jeg har modtaget flere mails om hvordan man kan (eller er det > skal) redigere > i de tekster som man læser korrektur på. > > Desværre er jeg stærkt i tvivl om den præcis mening i de modtagne > mails, og > håber at jeg ikke har gjort noget forkert i de sider som jeg allerede har > læst korrektur på. > > Hvis der er nogle af de af mig korrekturlæste sider der er > behandlet forkert > af mig, så ser jeg hen til en nærmere uddybning af de af mig > foretagne fejl. > Alternativt må jeg ophøre med at korrekturlæse for andre end mig selv. > > Med venlig hilsen > > Ejvind A. Christensen > Rolighedsvej 23 > DK-6520 Toftlund > Telf. +45 7483 0661 > > http://www.varla.dk/ > > > -----Oprindelig meddelelse----- > > Fra: runeberg-admin(a)lists.lysator.liu.se > > [mailto:runeberg-admin@lists.lysator.liu.se]På vegne af > > runeberg-request(a)lists.lysator.liu.se > > Sendt: 28. januar 2004 12.00 > > Til: runeberg(a)lists.lysator.liu.se > > Emne: Runeberg digest, Vol 1 #49 - 5 msgs > > > > > > Send Runeberg mailing list submissions to > > runeberg(a)lists.lysator.liu.se > > > > To subscribe or unsubscribe via the World Wide Web, visit > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > or, via email, send a message with subject or body 'help' to > > runeberg-request(a)lists.lysator.liu.se > > > > You can reach the person managing the list at > > runeberg-admin(a)lists.lysator.liu.se > > > > When replying, please edit your Subject line so it is more specific > > than "Re: Contents of Runeberg digest..." > > > > > > Today's Topics: > > > > 1. > > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= (Tommy Riboe (E-mail 2)) > > 2. > > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= (Tommy Riboe) > > 3. =?windows-1252?Q? RE: [Runeberg] Vill du hj=E4lpa Projekt > > Runeberg progr ammera??= (Ketil Firing Hanssen ) > > > > -- __--__-- > > > > Message: 1 > > Reply-To: <tommy.riboe(a)bbab.se> > > From: "Tommy Riboe (E-mail 2)" <tommy.riboe(a)swipnet.se> > > To: <runeberg(a)lists.lysator.liu.se> > > Date: Wed, 28 Jan 2004 00:48:02 +0100 > > Subject: [Runeberg] > > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= > > > > *** omsändning med av listan godkänd mejladress *** > > > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if (<STDIN>) { > > # läs in första raden > > $line = <STDIN>; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while (<STDIN>) { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > <för varje rad> > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > <matchar om sista tecknet på raden är "-"; > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > <nästa rad om matchningen lyckades> > > > > > > $line = $2 . $line; > > > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > > > -- __--__-- > > > > Message: 2 > > Reply-To: <tommy.riboe(a)bbab.se> > > From: "Tommy Riboe" <tommy.riboe(a)bbab.se> > > To: <runeberg(a)lists.lysator.liu.se> > > Date: Wed, 28 Jan 2004 00:37:13 +0100 > > Subject: [Runeberg] > > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= > > > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if (<STDIN>) { > > # läs in första raden > > $line = <STDIN>; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while (<STDIN>) { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > <för varje rad> > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > <matchar om sista tecknet på raden är "-"; > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > <nästa rad om matchningen lyckades> > > > > > > $line = $2 . $line; > > > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > > > -- __--__-- > > > > Message: 3 > > From: "Ketil Firing Hanssen " <firing(a)spray.no> > > To: runeberg(a)lists.lysator.liu.se > > Subject: =?windows-1252?Q? RE: [Runeberg] Vill du hj=E4lpa > > Projekt Runeberg progr ammera??= > > Date: Wed, 28 Jan 2004 08:28:34 +0100 > > > > This message is in MIME format. Since your mail reader does not > understand > > this format, some or all of this message may not be legible. > > > > --=_NextPart_Lycos_0221701075278514_ID > > Content-Type: text/plain; charset="us-ascii" > > Content-Transfer-Encoding: 7bit > > > > Følgende unntak bør tas hånd om: > > > > Vest- > > Tyskland > > > > Regelen er at neste rad begynner med stor bokstav (evt. unntak > > hvis hele ordet er > > skrevet med store bokstaver) > > > > Denne blir vel verre: > > > > romersk- > > katolsk > > > > > > mvh > > > > Ketil F. Hanssen > > > > > ------- Original Message ------- > > > > > > From : Tommy Riboe <tommy.riboe(a)bbab.se> > > > Date : Wed, 28 Jan 2004 00:37:13 +0100 > > > > > >Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if () { > > # läs in första raden > > $line = ; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while () { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > > > > > > > $line = $2 . $line; > > > > > > > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > _______________________________________________ > > Runeberg mailing list > > Runeberg(a)lists.lysator.liu.se > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > > > _________________________________________________________ > > Finn dine gamle klassekamerater på > > http://klassekamerater.nettavisen.no > > > > > > > > --=_NextPart_Lycos_0221701075278514_ID > > Content-Type: message/rfc822 > > Content-Transfer-Encoding: 7bit > > Content-Disposition: inline > > > > Return-Path: <runeberg-admin(a)lists.lysator.liu.se> > > Received: from mail.lysator.liu.se (mail.lysator.liu.se [130.236.254.3]) > > by lmin04.st1.spray.net (Postfix) with ESMTP id 6BA036F792 > > for <firing(a)spray.no>; Wed, 28 Jan 2004 02:37:22 +0100 (MET) > > Received: from tokaimura.lysator.liu.se (localhost [127.0.0.1]) > > by mail.lysator.liu.se (Postfix) with ESMTP > > id 09426D9126; Wed, 28 Jan 2004 02:34:04 +0100 (MET) > > Delivered-To: mailmanalias-post+runeberg(a)lysator.liu.se > > Received: by mail.lysator.liu.se (Postfix, from userid 1646) > > id BC9BED7C9A; Wed, 28 Jan 2004 00:37:32 +0100 (MET) > > Received: from amsfep14-int.chello.nl (amsfep14-int.chello.nl > > [213.46.243.22]) > > by mail.lysator.liu.se (Postfix) with ESMTP id 9889FD7A72 > > for <runeberg(a)lists.lysator.liu.se>; Wed, 28 Jan 2004 > > 00:37:19 +0100 (MET) > > Received: from bbabw2kp2 ([213.89.102.233]) by amsfep14-int.chello.nl > > (InterMail vM.6.00.05.02 201-2115-109-103-20031105) with SMTP > > id <20040127233715.HAEL18174.amsfep14-int.chello.nl@bbabw2kp2> > > for <runeberg(a)lists.lysator.liu.se>; > > Wed, 28 Jan 2004 00:37:15 +0100 > > Reply-To: <tommy.riboe(a)bbab.se> > > From: "Tommy Riboe" <tommy.riboe(a)bbab.se> > > To: <runeberg(a)lists.lysator.liu.se> > > Message-ID: <048001c3e52e$7e853020$6f00a8c0(a)bbab.local> > > MIME-Version: 1.0 > > Content-Type: text/plain; > > charset="iso-8859-1" > > Content-Transfer-Encoding: 8bit > > X-Priority: 3 (Normal) > > X-MSMail-Priority: Normal > > X-Mailer: Microsoft Outlook CWS, Build 9.0.6604 (9.0.2911.0) > > In-Reply-To: <000a01c3e460$161a1fb0$bd7ba8c0@OPUS> > > X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 > > Importance: Normal > > X-Spam-Checker-Version: SpamAssassin 2.61-lysator_fetto_1.1 > > (1.212.2.1-2003-12-09-exp) on fetto.lysator.liu.se > > X-Spam-Level: > > X-Spam-Status: No, hits=0.2 required=5.0 > > tests=AWL,RCVD_IN_RFCI,RCVD_IN_SORBS > > autolearn=no version=2.61-lysator_fetto_1.1 > > Subject: [Runeberg] > > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= > > Sender: runeberg-admin(a)lists.lysator.liu.se > > Errors-To: runeberg-admin(a)lists.lysator.liu.se > > X-BeenThere: runeberg(a)lists.lysator.liu.se > > X-Mailman-Version: 2.0.13 > > Precedence: bulk > > List-Unsubscribe: > <http://lists.lysator.liu.se/mailman/listinfo/runeberg>, > > <mailto:runeberg-request@lists.lysator.liu.se?subject=unsubscribe> > > List-Id: Projekt Runeberg <runeberg.lists.lysator.liu.se> > > List-Post: <mailto:runeberg@lists.lysator.liu.se> > > List-Help: <mailto:runeberg-request@lists.lysator.liu.se?subject=help> > > List-Subscribe: <http://lists.lysator.liu.se/mailman/listinfo/runeberg>, > > <mailto:runeberg-request@lists.lysator.liu.se?subject=subscribe> > > List-Archive: <http://lists.lysator.liu.se/pipermail/runeberg/> > > Date: Wed, 28 Jan 2004 00:37:13 +0100 > > > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if (<STDIN>) { > > # läs in första raden > > $line = <STDIN>; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while (<STDIN>) { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > <för varje rad> > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > <matchar om sista tecknet på raden är "-"; > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > <nästa rad om matchningen lyckades> > > > > > > $line = $2 . $line; > > > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > _______________________________________________ > > Runeberg mailing list > > Runeberg(a)lists.lysator.liu.se > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > > > > > --=_NextPart_Lycos_0221701075278514_ID-- > > > > > > > > -- __--__-- > > > > _______________________________________________ > > Runeberg mailing list > > Runeberg(a)lists.lysator.liu.se > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > > > End of Runeberg Digest > > > --__--__-- > > Message: 2 > From: "Bernhard Johanson" <bernhard.johanson(a)cantab.nu> > To: <runeberg(a)lists.lysator.liu.se> > Date: Wed, 28 Jan 2004 13:14:09 -0000 > Subject: [Runeberg] Re: Runeberg digest, Vol 1 #49 - 5 msgs > > Till Tommy Riboe m. fl. > > Det finnas faktiskt ett undantag till, nämligen om nästa rad börjar med en > versal, typ Schleswig-Holstein > Sedan är väl frågan om indrag av rad ska avlägsnas, vilket jag tycker. > I gamla OCR, åtminstone, återfinns tabbar och mångdubbla spaces. > Kanske även > de bör sållas bort, allt för att underlätta korrekturläsningen. > > Vänl. > Bernhard Johanson > > ----- Original Message ----- > From: <runeberg-request(a)lists.lysator.liu.se> > To: <runeberg(a)lists.lysator.liu.se> > Sent: Wednesday, January 28, 2004 11:00 AM > Subject: Runeberg digest, Vol 1 #49 - 5 msgs > > > > Send Runeberg mailing list submissions to > > runeberg(a)lists.lysator.liu.se > > > > To subscribe or unsubscribe via the World Wide Web, visit > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > or, via email, send a message with subject or body 'help' to > > runeberg-request(a)lists.lysator.liu.se > > > > You can reach the person managing the list at > > runeberg-admin(a)lists.lysator.liu.se > > > > When replying, please edit your Subject line so it is more specific > > than "Re: Contents of Runeberg digest..." > > > > > > Today's Topics: > > > > 1. > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= (Tommy Riboe (E-mail 2)) > > 2. > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= (Tommy Riboe) > > 3. =?windows-1252?Q? RE: [Runeberg] Vill du hj=E4lpa Projekt Runeberg > progr ammera??= (Ketil Firing Hanssen ) > > > > -- __--__-- > > > > Message: 1 > > Reply-To: <tommy.riboe(a)bbab.se> > > From: "Tommy Riboe (E-mail 2)" <tommy.riboe(a)swipnet.se> > > To: <runeberg(a)lists.lysator.liu.se> > > Date: Wed, 28 Jan 2004 00:48:02 +0100 > > Subject: [Runeberg] > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= > > > > *** omsändning med av listan godkänd mejladress *** > > > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if (<STDIN>) { > > # läs in första raden > > $line = <STDIN>; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while (<STDIN>) { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > <för varje rad> > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > <matchar om sista tecknet på raden är "-"; > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > <nästa rad om matchningen lyckades> > > > > > > $line = $2 . $line; > > > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > > > -- __--__-- > > > > Message: 2 > > Reply-To: <tommy.riboe(a)bbab.se> > > From: "Tommy Riboe" <tommy.riboe(a)bbab.se> > > To: <runeberg(a)lists.lysator.liu.se> > > Date: Wed, 28 Jan 2004 00:37:13 +0100 > > Subject: [Runeberg] > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= > > > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if (<STDIN>) { > > # läs in första raden > > $line = <STDIN>; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while (<STDIN>) { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > <för varje rad> > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > <matchar om sista tecknet på raden är "-"; > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > <nästa rad om matchningen lyckades> > > > > > > $line = $2 . $line; > > > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > > > -- __--__-- > > > > Message: 3 > > From: "Ketil Firing Hanssen " <firing(a)spray.no> > > To: runeberg(a)lists.lysator.liu.se > > Subject: =?windows-1252?Q? RE: [Runeberg] Vill du hj=E4lpa Projekt > Runeberg progr ammera??= > > Date: Wed, 28 Jan 2004 08:28:34 +0100 > > > > This message is in MIME format. Since your mail reader does not > understand > > this format, some or all of this message may not be legible. > > > > --=_NextPart_Lycos_0221701075278514_ID > > Content-Type: text/plain; charset="us-ascii" > > Content-Transfer-Encoding: 7bit > > > > Følgende unntak bør tas hånd om: > > > > Vest- > > Tyskland > > > > Regelen er at neste rad begynner med stor bokstav (evt. unntak hvis hele > ordet er > > skrevet med store bokstaver) > > > > Denne blir vel verre: > > > > romersk- > > katolsk > > > > > > mvh > > > > Ketil F. Hanssen > > > > > ------- Original Message ------- > > > > > > From : Tommy Riboe <tommy.riboe(a)bbab.se> > > > Date : Wed, 28 Jan 2004 00:37:13 +0100 > > > > > >Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if () { > > # läs in första raden > > $line = ; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while () { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > > > > > > > $line = $2 . $line; > > > > > > > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > _______________________________________________ > > Runeberg mailing list > > Runeberg(a)lists.lysator.liu.se > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > > > _________________________________________________________ > > Finn dine gamle klassekamerater på > http://klassekamerater.nettavisen.no > > > > > > > > --=_NextPart_Lycos_0221701075278514_ID > > Content-Type: message/rfc822 > > Content-Transfer-Encoding: 7bit > > Content-Disposition: inline > > > > Return-Path: <runeberg-admin(a)lists.lysator.liu.se> > > Received: from mail.lysator.liu.se (mail.lysator.liu.se [130.236.254.3]) > > by lmin04.st1.spray.net (Postfix) with ESMTP id 6BA036F792 > > for <firing(a)spray.no>; Wed, 28 Jan 2004 02:37:22 +0100 (MET) > > Received: from tokaimura.lysator.liu.se (localhost [127.0.0.1]) > > by mail.lysator.liu.se (Postfix) with ESMTP > > id 09426D9126; Wed, 28 Jan 2004 02:34:04 +0100 (MET) > > Delivered-To: mailmanalias-post+runeberg(a)lysator.liu.se > > Received: by mail.lysator.liu.se (Postfix, from userid 1646) > > id BC9BED7C9A; Wed, 28 Jan 2004 00:37:32 +0100 (MET) > > Received: from amsfep14-int.chello.nl (amsfep14-int.chello.nl > [213.46.243.22]) > > by mail.lysator.liu.se (Postfix) with ESMTP id 9889FD7A72 > > for <runeberg(a)lists.lysator.liu.se>; Wed, 28 Jan 2004 00:37:19 > +0100 (MET) > > Received: from bbabw2kp2 ([213.89.102.233]) by amsfep14-int.chello.nl > > (InterMail vM.6.00.05.02 201-2115-109-103-20031105) with SMTP > > id <20040127233715.HAEL18174.amsfep14-int.chello.nl@bbabw2kp2> > > for <runeberg(a)lists.lysator.liu.se>; > > Wed, 28 Jan 2004 00:37:15 +0100 > > Reply-To: <tommy.riboe(a)bbab.se> > > From: "Tommy Riboe" <tommy.riboe(a)bbab.se> > > To: <runeberg(a)lists.lysator.liu.se> > > Message-ID: <048001c3e52e$7e853020$6f00a8c0(a)bbab.local> > > MIME-Version: 1.0 > > Content-Type: text/plain; > > charset="iso-8859-1" > > Content-Transfer-Encoding: 8bit > > X-Priority: 3 (Normal) > > X-MSMail-Priority: Normal > > X-Mailer: Microsoft Outlook CWS, Build 9.0.6604 (9.0.2911.0) > > In-Reply-To: <000a01c3e460$161a1fb0$bd7ba8c0@OPUS> > > X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 > > Importance: Normal > > X-Spam-Checker-Version: SpamAssassin 2.61-lysator_fetto_1.1 > > (1.212.2.1-2003-12-09-exp) on fetto.lysator.liu.se > > X-Spam-Level: > > X-Spam-Status: No, hits=0.2 required=5.0 > tests=AWL,RCVD_IN_RFCI,RCVD_IN_SORBS > > autolearn=no version=2.61-lysator_fetto_1.1 > > Subject: [Runeberg] > =?iso-8859-1?Q?SV:_=5BRuneberg=5D_Vill_du_hj=E4lpa_Projekt_Runeber > g_progr?= > > =?iso-8859-1?Q?ammera=3F?= > > Sender: runeberg-admin(a)lists.lysator.liu.se > > Errors-To: runeberg-admin(a)lists.lysator.liu.se > > X-BeenThere: runeberg(a)lists.lysator.liu.se > > X-Mailman-Version: 2.0.13 > > Precedence: bulk > > List-Unsubscribe: > <http://lists.lysator.liu.se/mailman/listinfo/runeberg>, > > <mailto:runeberg-request@lists.lysator.liu.se?subject=unsubscribe> > > List-Id: Projekt Runeberg <runeberg.lists.lysator.liu.se> > > List-Post: <mailto:runeberg@lists.lysator.liu.se> > > List-Help: <mailto:runeberg-request@lists.lysator.liu.se?subject=help> > > List-Subscribe: <http://lists.lysator.liu.se/mailman/listinfo/runeberg>, > > <mailto:runeberg-request@lists.lysator.liu.se?subject=subscribe> > > List-Archive: <http://lists.lysator.liu.se/pipermail/runeberg/> > > Date: Wed, 28 Jan 2004 00:37:13 +0100 > > > > Jag byggde vidare på regexp-exemplet från Bengt och kan nu erbjuda > > nedanstående förslag. Eftersom jag är så gott som nybörjare på Perl så > > skall mitt exempel tas som ett algoritmförslag och kompletteras med > > felhantering och liknande. Dessutom har jag säkert missat något > > undantagsfall. Det verkar i alla fall fungera med den medföljande > > texten utökad med enstaka instanser av mina undantag. > > > > mvh > > Tommy Riboe > > > > #============================================ > > #!/bin/perl > > # > > # huvudregel: > > # a) rader vars sista ord slutar med '-' bryts före avstavat ord > > # b) avstavat ord sammanfogas på nästa rad > > # c) indrag bibehålles > > # > > # undantag: > > # a) rad som slutar med tankstreck (ensamt '-') > > # b) rad som slutar med förled i upprepade sammansatta ord > > # c) avstavning i sidans sista rad > > # > > # vid undantag b) flyttas förledet till följande rad > > > > > > seek(STDIN, 0, SEEK_SET); > > $line= ""; > > $nextline= ""; > > $spill = ""; > > > > #if (<STDIN>) { > > # läs in första raden > > $line = <STDIN>; > > { > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > } > > print $line; > > > > while (<STDIN>) { > > > > # testa om nästa rad börjar med "och", "eller" > > # (bör mer naturligt placeras efter nästa sats > > # och använda sig av $nextline) > > if (/^\s*(och|eller).*$/) { > > $spill = $spill . "- "; > > } > > > > # förbered nästa rad > > $nextline = $_; > > > > # sätt ihop marginal + spill + nästa_rad > > $nextline =~ s/(\s*)(.+?)$/$1$spill$2/; > > > > # gör nästa rad till aktuell rad > > $line = $nextline; > > > > # avlägsna ord som slutar med bindestreck från > > # slutet av raden, med undantag för ensamma > > # bindestreck, placera avlägsnad text i $spill > > $line =~ s/(\s*)(.*)( +?)(\S+?)-$/\1\2/; > > $spill = $4; > > print $line; > > } > > #} > > print "\n(till nästa sida: " . $spill . ")\n"; > > #============================================ > > > > > -----Ursprungligt meddelande----- > > > Från: runeberg-admin(a)lists.lysator.liu.se > > > [mailto:runeberg-admin@lists.lysator.liu.se]För Bengt J. Olsson > > > Skickat: den 27 januari 2004 00:00 > > > Till: runeberg(a)lists.lysator.liu.se; Hans Persson > > > Ämne: [Runeberg] Re: [Runeberg] Vill du hjälpa Projekt Runeberg > > > programmera? > > > > > > > > > Har inte något färdigt program men har följande brott-stycke > > > av ett sånt program; > > > > > > <för varje rad> > > > > > > $line =~ s/(.*) (.+?)-$/$1/; > > > > > > <matchar om sista tecknet på raden är "-"; > > > allt utom det avstavade ordet finns kvar i $1; > > > första delen av det avstavade ordet finns i $2> > > > > > > <nästa rad om matchningen lyckades> > > > > > > $line = $2 . $line; > > > > > > <konkatenerar början av det avstavade ordet med nästa rad> > > > > > > M v h Bengt > > > > > > --- > > > Bengt J. Olsson > > > bengt(a)blafs.com > > > http://blafs.com > > > > > > > > > > _______________________________________________ > > Runeberg mailing list > > Runeberg(a)lists.lysator.liu.se > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > > > > > --=_NextPart_Lycos_0221701075278514_ID-- > > > > > > > > -- __--__-- > > > > _______________________________________________ > > Runeberg mailing list > > Runeberg(a)lists.lysator.liu.se > > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > > > > End of Runeberg Digest > > > > --__--__-- > > _______________________________________________ > Runeberg mailing list > Runeberg(a)lists.lysator.liu.se > http://lists.lysator.liu.se/mailman/listinfo/runeberg > > > End of Runeberg Digest

1 0

← Newer
1
...
27
28
29
30
31
32
33
34
35
Older →

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

Runeberg