[GastForen Archiv Perl und CGI newbie braucht Hilfe

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Archiv - Archivierte Foren
Themen
Beiträge
Moderatoren
Letzter Beitrag

newbie braucht Hilfe

Muse
Beiträge gesamt: 13

13. Jun 2003, 11:51
Beitrag # 1 von 8
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Ihr,

ich bin es mal wieder und benötige dringend Eure Hilfe.
Und zwar geht es immernoch um meine Schleife.
Ich habe sie versucht ein wenig einfacher zu machen.
und zwar so:

Code
 
my %werte = (
'NNO' => [0..29],
'NO' => [30..59],
'NOO' => [60..89],
'SOO' => [90..119],
'SO' => [120..149],
'SSO' => [150..179],
'SSW' => [180..209],
'SW' => [210..239],
'SWW' => [240..269],
'NWW' => [269..299],
'NW' => [300..329],
'NWW' => [330..359]
);


while (<DAT>) {
if ($. == 1) {
($xtitle, $ytitle) = (split /;/)[1,0];
chomp($xtitle);}

else{

(@spalte) = split(/;/,$_);

my ($grad) = /\d+;(\d+)/;#hol dir die zweite Zahl in der Zeile
for (keys %werte) { #teste im ganzen Hash %werte

# wenn $grad sich im Wertebereich von $werte{$_} befindet, dann
# erhoehe $hdaten{$_}, wobei $_ z.B. NO oder NNO oder SO etc. ist.
#In %hdaten werden also die Haeufigkeiten fuer die einzelnen Richtungen gezaehlt.

if($grad >= $werte{$_}[0] && $grad <= $werte{$_}[-1]) {$hdaten{$_}++};
}
$gesamt++;
}

}
for (keys %hdaten) {
push @{$daten[0]},$hdaten{$_}=($hdaten{$_}*100)/$gesamt;
push @{$daten[1]},$hdaten{$_};
}

close DAT;

[\code]

Leider stimmt die Ausgabe auf der x-achse nicht. Es sollen die Bezeichnungen 'NNO,'NO'... ausgegeben werden und zwar in einer bestimmten Reihenfolge und zwar so wie sie im Hash %werte stehen.
Habe leider keine Idee wie.

Vielleicht kann mir mal wieder jemand helfen.

LG Muse
X

newbie braucht Hilfe

SabineP
Beiträge gesamt: 7586

13. Jun 2003, 12:20
Beitrag # 2 von 8
Beitrag ID: #39380
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Muse,

eine Lösung hast Du doch schon von Oesie50 bekommen,
http://www.hilfdirselbst.ch/...c_id=8032&page=2

Das Script funktioniert einwandfrei. Ich habe das auch ausprobiert.

Du solltest mal Deinen Dateiname hier eintragen.
open(DAT,"<daten.txt"); # Datendatei öffnen

Gruß Sabine


als Antwort auf: [#39372]

newbie braucht Hilfe

Muse
Beiträge gesamt: 13

13. Jun 2003, 12:41
Beitrag # 3 von 8
Beitrag ID: #39384
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Sabine,

ich weiß, dass Oesi mir schon mehrere Vorschläge gemacht hat, aber leider bekomme ich das Programm nicht zum laufen.
Ich muss auch GD::Graph benutzen und nicht das Chart-Modul.

Vielleicht kann mir jemand mit meiner Version weiterhelfen.

LG Muse


als Antwort auf: [#39372]

newbie braucht Hilfe

Muse
Beiträge gesamt: 13

13. Jun 2003, 12:58
Beitrag # 4 von 8
Beitrag ID: #39387
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ok, ich habe jetzt den einen vorschlag von Oesi nochmal ausprobiert, was dann folgendermaßen aussieht:

Code
my %werte = ( 
'NNO' => [0..29],
'NO' => [30..59],
'NOO' => [60..89],
'SOO' => [90..119],
'SO' => [120..149],
'SSO' => [150..179],
'SSW' => [180..209],
'SW' => [210..239],
'SWW' => [240..269],
'NWW' => [269..299],
'NW' => [300..329],
'NWW' => [330..359]
);


while(<DAT>){
chomp;
if ($. == 1) {
($ytitle, $xtitle) = (split /;/);
next;
} else{
(@spalte) = split(/;/);
$hdaten{$spalte[1]}++;
$gesamt++;
}
}
close(DAT);

if ($gesamt>0) {# Division durch Null vermeiden
for (sort { $a <=> $b } keys %hdaten ){
push @{$daten[0]}, $werte{$_};
push @{$daten[1]}, $hdaten{$_} *100/ $gesamt ;

}
}
[\code]

So jetzt kamen wenigstens keine Fehlermeldungen mehr. Aber ich habe noch fragen und zwar für was steht die Standardvariable $_ bei push?

Leider gibt das Programm auch keine Bezeichnungen auf der x-Achse aus. Da sollten eigentlich die Bezeichnungen der richtungen stehen, wie NNO usw.

LG Muse


als Antwort auf: [#39372]

newbie braucht Hilfe

oesi50
  
Beiträge gesamt: 2315

13. Jun 2003, 13:34
Beitrag # 5 von 8
Beitrag ID: #39397
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Liebe Muse,
das ist jetzt mein letzter Versuch,Dir zu helfen.
Ich habe das gesamte Programm mit Kommentaren versehen.
Bitte lies Dir alles Zeile für Zeile genau durch, und versuche mit Hilfe der Perldokumentation, die einzelnen Schritte nachzuvollziehen.

hier ist der Link zum lauffähigen Script:
http://vsrv.net/test/g2.pl
hier ist der Link zum Quellcode:
http://vsrv.net/test/g2.txt
hier ist der Link zu den Daten:
http://vsrv.net/test/daten.txt

Grüße Oesi


als Antwort auf: [#39372]

newbie braucht Hilfe

Muse
Beiträge gesamt: 13

13. Jun 2003, 16:34
Beitrag # 6 von 8
Beitrag ID: #39421
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ich danke dir nochmal sehr für deine Bemühungen.
habe dein Programm in meines eingebaut und es läuft auch.
Das einzige was es noch nicht macht ist, die Bezeichnungen auf der x-Achse auszugeben, obwohl ich die Zeilen genauso von dir übernommen habe und mein Programm nach deinem ausgerichtet habe.

Ich weiß leider selber, dass ich nerve, aber außerdem wollte ich gerne wissen, für was die Standardvariable in der push-Zeile steht.
habe es auch selber versucht herauszufinden, aber ich hoffe du kannst es mir erklären.
Du hast bei deinen Berechnungen, die Sektoren in 16 verschiedene eingeteilt. Ich brauche jedoch nur 12.
Ich habe es dann so gemacht:

my (@zeile) = split /;/;
my $sektor = ($zeile[1] + 15.00);
$sektor = $sektor % 360 ; $sektor = int($sektor / 30);
$hdaten{$sektor}++; $gesamt++;
Bin echt froh, dass du mir so hilft und das hast du bis jetzt auch wirklich schon getan und ich hoffe auch weiterhin.

LG Muse


als Antwort auf: [#39372]
(Dieser Beitrag wurde von Muse am 13. Jun 2003, 16:37 geändert)

newbie braucht Hilfe

SabineP
Beiträge gesamt: 7586

13. Jun 2003, 17:54
Beitrag # 7 von 8
Beitrag ID: #39433
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Irgendwas stimmt nicht mit dem Kompass von Muse:

'NNO' => [0..29]
'NO' => [30..59]
'NOO' => [60..89]
'SOO' => [90..119]
'SO' => [120..149]
'SSO' => [150..179]
'SSW' => [180..209]
'SW' => [210..239]
'SWW' => [240..269]
'NWW' => [269..299]
'NW' => [300..329]
'NWW' => [330..359]

Norden, Osten, Süden und Westen fehlen komplett.

NWW hat zwei Bereiche.

Und die Himmelsrichtungen NOO, SOO, SWW, NWW
gibt es bei uns in Deutschland gar nicht.

Sowas hab ich noch nie gesehen :-o
Wer hat denn solche Himmelsrichtungen erfunden?

Außerdem kann man doch einen Kompass nur in 4, 8 oder 16 Bereiche unterteilen.

Gruß Sabine


als Antwort auf: [#39372]
(Dieser Beitrag wurde von SabineP am 13. Jun 2003, 18:04 geändert)

newbie braucht Hilfe

Muse
Beiträge gesamt: 13

16. Jun 2003, 09:23
Beitrag # 8 von 8
Beitrag ID: #39597
Bewertung:
(1200 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Mein Kompass stimmt schon.
Ich soll die Windrichtungen in 30° einteilen. Das wurde mir vorgegeben. Genauso wie die blöden Bezeichnungen.
Das vorkommen von "NWW" ist meinerseits leider ein Tipfehler.
Der letzte Bereich soll "NNW" heißen. Sorry.
Die Unterteilungen, sind so, wie Sabine es gemacht hat.
Es gibt demnach 12 Sektoren.

Ist dann meine Berechnung von oben richtig?
Und hat jemand eine idee wegen der x-Achsenbezeichnung?

LG Muse


als Antwort auf: [#39372]
X

Veranstaltungen

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen. pdf-icon Hier eine kleine Anleitung.

Veranstaltungen
26.09.2018

Hochschuloe der Medien, Stuttgart
Mittwoch, 26. Sept. 2018, 19.00 - 21.00 Uhr

Vertrag

Nur auf den ersten Blick scheint dieses Thema exotisch. Aber eine neue EU-Richtlinie und deren Auswirkungen auf deutsche Gesetze werden dieses Thema auch für Publisher interessant machen. Die EU-Richtlinie "2102 zu Barrierefreiheit" besagt folgendes: Ab dem 23. September 2018 müssen alle öffentlichen Stellen ihre neuen (Office- oder PDF-) Dokumente grundsätzlich barrierefrei veröffentlichen. Im Juni wurde der Gesetzentwurf zur Umsetzung dieser Richtlinie im deutschen Bundestag vom "Ausschuss für Arbeit und Soziales" (19/2728) angenommen. Es wird also ernst für "öffentliche Stellen" und damit auch für deren Dienstleister, die mit der Umsetzung beauftragt werden. Die Richtlinie gilt nämlich nicht nur für Bundes- und Landesbehörden, sondern auch für Verbände, die im Allgemeininteresse liegende Aufgaben erfüllen. Das wären somit auch Gerichte, Polizeistellen, Krankenhäuser, Universitäten, Bibliotheken und einige mehr. Weitere Informationen findest Du hier, hier und hier. Wenn also oben genannte Auftraggeber zu Deinen Kunden zählen, solltest Du Dich vorbereiten. Und da es neben Websites auch um alle downloadbaren Dateien geht sind eben auch PDFs zukünftig barrierefrei zu erstellen. Arbeitet man in InDesign, können dort einige Vorbereitungen getroffen werden. Klaas Posselt ist der ausgewiesene Spezialist im deutschsprachigen Raum für alle Fragen rund um das Thema. Deshalb freuen wir uns, dass er uns in einem Vortrag die Grundlagen dazu vermitteln wird. Wir setzen voraus, dass Du den Umgang mit InDesign gewohnt bist, die Gründe und Vorteile von der Nutzung von Formaten kennst und weißt, wie man lange Dokumente „richtig“ aufbaut. Der Vortrag setzt bewusst DANACH ein. Inhalt des Vortrages ist der Hintergrund von „Barrierefreiheit“ und Möglichkeiten und Grenzen innerhalb von InDesign. Es wird erklärt, welche Bedeutung das kostenpflichtige PlugIn MadeToTag hat und warum und für was man es braucht. Ziel ist es den Rahmen aufzuzeigen, in dem sich das Thema „Barrierefreiheit“ in InDesign abspielt. Du weißt hinterher, wo die „Baustellen“ sind, wo Du weitergehende Infos bekommst und welchen Weg Du einschlagen musst. Am nächsten Tag veranstalten wir zwei Bootcamps, die das Thema praktisch vertiefen. "IDUGS Bootcamp #2" und "IDUGS Bootcamp #3" Klaas Posselt ist studierter Dipl.-Ing. für Druck- und Medientechnik und kam über verschiedene Anfragen zum Thema barrierefreie PDF Dokumente. Seit über 10 Jahren arbeitet er in den Bereichen Medientechnik und Publishing zwischen Medienherstellern, Druckermaschinen und digitalen Ausgabekanälen. Er schult, begleitet und unterstützt Kunden bei der Einführung und Optimierung von Publikationsprozessen und auf dem Weg zu neuen digitalen Ausgabekanälen — egal ob E-Books, barrierefreie PDFs oder Webplattformen. Als Chairman des PDF/UA Competence Center der PDF Association beteiligt er sich an der Weiterentwicklung und Verbreitung des Standards PDF/UA für barrierefreie PDF Dokumente. Diese Veranstaltung kommt nur zu Stande durch die freundliche Unterstützung von "Six Offene Systeme GmbH" -- Enterprise-Content-Management-System und Media-Asset-Management-System.

Nein

Organisator: IDUG Stuttgart

Kontaktinformation: Christoph Steffens, E-Mailchristoph.steffens AT gmail DOT com

https://idug47.eventbrite.de

Veranstaltungen
27.09.2018

Screen IT, Uster
Donnerstag, 27. Sept. 2018, 17.30 - 20.00 Uhr

Infoveranstaltung

Das Angebot an Publishing-Software ist gross. Deshalb empfiehlt sich eine externe Beratung durch unabhängige Software-Experten aus der jeweiligen Branche. Nicht immer muss es eine teure Mietlösung sein, die nach Beendigung der Mietdauer einem nicht einmal gehört. Es gibt sehr gute und auch in der Qualität ausreichende Alternativen, ja sogar kostenlose Freeware. Lassen Sie sich an diesem Abend einmal vor Augen führen, was diese Programme können und wie viel sie kosten.

Ja

Organisator: Screen IT und pre2media

Kontaktinformation: Peter Jäger, E-Mailinfo AT pre2media DOT ch

https://www.pre2media.ch/-1/de/infoanlass/