Opened by Hunnenkoenig at 2009-10-27 18:57
User since
2009-10-27
40 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-10-27
40 Artikel
BenutzerIn
Andere frage:
Kann man mir helfen einen ordentlichen script zu schreiben, der unter meinen umständen (Perl 5.8, nix mit modul installationen etc.) die gewünschte info herausbekommt?
Ich habe jetzt herum experimentiert und das dabei rausgeholt:
Kann ich irgendwie das umgekehrt machen?
Also nicht alles nehmen und das rausfiltern, was ich nicht brauche, sonder nur das rausnehmen, was ich brauche.
Also statt
nur
machen?
Last edited: 2009-10-28 18:03:02 +0100 (CET)
Kann man mir helfen einen ordentlichen script zu schreiben, der unter meinen umständen (Perl 5.8, nix mit modul installationen etc.) die gewünschte info herausbekommt?
Ich habe jetzt herum experimentiert und das dabei rausgeholt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#! /usr/bin/perl -w
#! /usr/bin/curl
# Autofetch reviews
# ToDo
#print "To Do Reviews:\n";
$currentSoftware = 321234472;
getAppinfo();
sub getAppinfo()
{
fetchInfo();
print "Content-Type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>AppInfo</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "$review\n";
print "</BODY>\n";
print "</HTML>\n";
}
sub fetchInfo()
{
my $doit = qq{curl -s 'http://ax.itunes.apple.com/WebObjects/MZStore.woa/wa/viewSoftware?id=$currentSoftware&mt=8'};
my $riz = `$doit`;
my @rizray = split('\n', $riz);
my @rizray = grep( !/key/ & !/string/ & !/PathElement/ & !/more games.*/
& !/iTunes/ & !/Category.*/ & !/GotoURL/ & !/normalStyle/ & !/Released.*/
& !/Seller.*/ & !/Rated.*/ & !/Rate this.*/ & !/©.*/ & !/Color/ & !/.*MB/
& !/Version.*/ & !/.*2009/ & !/Infrequent.*/ & !/NEW.*/ & !/LANGUAGES.*/
& !/REQUIREMENTS.*/ & !/Apple.*/ & !/All rights.*/ & !/Policy.*/ & !/Terms of.*/
& !/Compatible.*/ & !/Requires.*/ & !/English.*/ & !/Copyright/, @rizray);
foreach my $item (@rizray)
{
$review =~ s!by\s*<b>.*</b>\s*-\s*-!!g;
$review = "$review$item";
}
}
Kann ich irgendwie das umgekehrt machen?
Also nicht alles nehmen und das rausfiltern, was ich nicht brauche, sonder nur das rausnehmen, was ich brauche.
Also statt
nur
Code: (dl
)
gut
machen?
Last edited: 2009-10-28 18:03:02 +0100 (CET)