Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 26
+29 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
<TextView topInset="0" leftInset="0" rightInset="0" styleSet="normal11"><SetFontStyle normalStyle="descriptionTextColor">Advanced Rollercoaster Builder is a logical puzzle game. Your goal is to build a Rollercoaster from one side of the screen making your train able to collect the stars on the way, and reach the other side without crashing.<br/><br/>There are five levels, and all of them have five stages, so you get 25 missions all together with constantly raising severity.<br/><br/>After finishing all the levels you can see your actual High Score, which you can share online with others.<br/><br/>You can replay the game until you reach the perfect state and collect ALL the stars.<br/><br/>You can view a "replay video" after each finished stage.<br/><br/>Features:<br/><br/>- 5 Stages<br/>- 25 Missions<br/>- AGON based Online High Score<br/>- Video Replay<br/>- Unique Gameplay<br/><br/>If you liked Line Rider, you will love Advanced RollerCoaster Builder.<br/><br/><br/>Watch the YouTube video by following the link from our official website.<br/><br/>http://www.youtube.com/watch?v=4qYLnvgds_4</SetFontStyle></TextView>
1
2
my @rizray = grep( /<TextView topInset="0" leftInset="0" rightInset="0" styleSet="normal11">
<SetFontStyle normalStyle="descriptionTextColor">/, @rizray);
+23 replies![[Homepage]](/battie/theme/default/homepage.gif)
Data::Dumper an...
+22 replies
+20 replies
+19 replies
+18 replies
Artikel
+17 replies
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
52
53
54
55
56
#! /usr/bin/perl
# Autofetch Info
my $store;
my $coCode;
my $appId;
my $counter = 0;
my $currentSoftware;
my $temp;
my $flag = 0;
print "Content-type: text/html\n\n";
splitVars();
$currentSoftware = $appId;
$store = 143441;
fetchReviews();
sub splitVars{
my $item = "";
my $riz = $ENV{'QUERY_STRING'};
if($riz){
my @rizray = split("&", $riz);
foreach $item (@rizray){
if(index($item, "id", 0) >= 0){
$appId = substr($item, index($item, "id", 0)+3, length($item));
}
elsif(index($item, "country", 0) >= 0){
$coCode = substr($item, index($item, "country", 0) + 8, length($item));
}
}
}
}
sub fetchReviews()
{
my $doit = qq{curl -s -A "iTunes/4.2 (Macintosh; U; PPC Mac OS X 10.2" -H "X-Apple-Store-Front: $store-1"
'http://ax.itunes.apple.com/WebObjects/MZStore.woa/wa/viewSoftware?id=$currentSoftware'};
my $riz = `$doit`;
my @rizray = split('\n', $riz);
my @rizray = grep( /<TextView topInset="0" leftInset="0" rightInset="0" styleSet="normal11">
<SetFontStyle normalStyle="descriptionTextColor">/, @rizray);
foreach my $item (@rizray)
{
print "$item";
}
}
QuoteAdvanced Rollercoaster Builder is a logical puzzle game. Your goal is to build a Rollercoaster from one side of the screen making your train able to collect the stars on the way, and reach the other side without crashing.
There are five levels, and all of them have five stages, so you get 25 missions all together with constantly raising severity.
After finishing all the levels you can see your actual High Score, which you can share online with others.
You can replay the game until you reach the perfect state and collect ALL the stars.
You can view a "replay video" after each finished stage.
Features:
- 5 Stages
- 25 Missions
- AGON based Online High Score
- Video Replay
- Unique Gameplay
If you liked Line Rider, you will love Advanced RollerCoaster Builder.
Watch the YouTube video by following the link from our official website.
http://www.youtube.com/watch?v=4qYLnvgds_4
+16 replies
1 2 3
if(index($item, "id", 0) >= 0){ $appId = substr($item, index($item, "id", 0)+3, length($item)); }
my $appId = $item =~ m/id=(.*)/;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; use CGI; my $cgi = CGI->new; my $currentSoftware = $cgi->param('id'); my $coCode = $cgi->param('country'); my $store = 143441; my $flag = 0; my $counter = 0; print $cgi->header; # ... # sub splitVars fällt durch die verwendung von CGI.pm weg
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+15 replies
+6 replies
2009-11-21T15:19:58 HunnenkoenigAlso ich habe von vorhandenen kodes einen (halb)funktionierenden mit trial und error zusammengebastelt, nach dem mir keiner wirklich helfen will (sprich: einen script in 5 minuten schreiben will...
[...]
Mir ist es eigentlich egal, wie steinzeitlich der script ist, es soll nur funktionieren :-P
Also kann mir bitte jemand sagen, wie ich den rest des textes herausbekomme ohne mir perl von adam und eva beibringen zu wollen?
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+5 replies
+4 replies
2009-11-21T15:45:47 HunnenkoenigDas ist mir schon klar, dass du da was umgeschrieben hast, nur ich weiss nicht was. Was kann / muss ich von "meinem" kode behalten und was kann ich mit deinem ersetzen.
QuoteIch will nur so viel dazu lernen, was absolut nötig ist um das hier zum laufen zu bekommen. Ich bin zielorientiert und ich suche seit tagen für eine lösung zu meinem problem. Wenn ich herausbekommen will, wie man äpfel schält, will ich nicht wissen, wie man einen apfelbaum pflanzt.
QuoteDu hast dafür einen halben script geschrieben, der dir nix und mir kaum was bringt
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+3 replies
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
#! /usr/bin/perl # Autofetch Info use strict; use warnings; use CGI; my $cgi = CGI->new; my $currentSoftware = $cgi->param('id'); my $coCode = $cgi->param('country'); my $store = 143441; my $flag = 0; my $counter = 0; print $cgi->header; sub fetchReviews() { my $doit = qq{curl -s -A "iTunes/4.2 (Macintosh; U; PPC Mac OS X 10.2" -H "X-Apple-Store-Front: $store-1" 'http://ax.itunes.apple.com/WebObjects/MZStore.woa/wa/viewSoftware?id=$currentSoftware'}; my $riz = `$doit`; my @rizray = split('\n', $riz); my @rizray = grep( /<TextView topInset="0" leftInset="0" rightInset="0" styleSet="normal11"><SetFontStyle normalStyle="descriptionTextColor">/, @rizray); foreach my $item (@rizray) { print "$item"; } }
+2 replies
2009-11-21T18:13:03 HunnenkoenigDAs hier gibt eine weisse seite zurück mit nix im quellcode.
Also der script tut nix. Wie auch, wenn fetchreview nicht deklariert wird.
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+8 replies
2009-11-21T15:19:58 HunnenkoenigDas problem ist, dass perl (für mich) total unlogische sachen macht. zB gibt nur die mitte eines textes aus
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+7 replies
2009-11-21T15:37:35 pqna dann steig doch auf PHP oder Java oder Ruby oder C oder sonstwas um... perl kann nur die mitte eines textes ausgeben, bei allen anderen sprachen gibt es diese einschränkung selbstverständlich nicht.
+6 replies
+5 replies
+4 replies
2009-11-21T21:15:11 HunnenkoenigGlaube mir, ich habe versucht mit anderen programmiersprachen und leider Perl ist die einzige, die dafür geeignet ist.
[...]
Quote[...]
Mir geht es einfach gegen den strich, dass ich zu einem forum komme, wo man angeblich helfen will, aber ich bekomme den ganzen tag nur solche meldungen wie deine.
[...]
+3 replies
2009-11-22T09:04:54 Hunnenkoenigwährend euer virtuelles schwanzmessen nix an den tag gebracht hat
Quotepq hat wenigstens irgendwas gemacht, auch wenn er nicht das gemacht hat, was man ihn gefragt hat.
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
2009-11-22T09:04:54 HunnenkoenigWarum bedankst du dich dann bei mir in Beitrag, du seltsamer Mensch!, wenn das alles nur Müll ist?Nach 64 (in worten vier und sechzig!) antworten war keine einzige ordentliche antwort dabei, abgesehen von MatthiasW (http://www.perl-community.de/bat/poard/thread/1418...) der mein problem mit einer zeile beantwortet hat und seine lösung auch funktioniert hat, während euer virtuelles schwanzmessen nix an den tag gebracht hat, nur unsere zeit geraubt hat. Genauso wie hier.
+4 replies
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
use 5.010; use strict; use warnings; use LWP::UserAgent; use XML::LibXML; use constant { AGENT_NAME => 'iTunes/4.2 (Macintosh; U; PPC Mac OS X 10.2', STORE_HEADER => 'X-Apple-Store-Front', URL_TEMPLATE => 'http://ax.itunes.apple.com/WebObjects/MZStore.woa/wa/viewSoftware?id=%s', ITMS_NS => 'http://www.apple.com/itms/', DESC_PATH => '//itms:TextView[.//text() = "APPLICATION DESCRIPTION"]/following-sibling::itms:TextView' }; # Get application and store ID from command line or use defaults my $app_id = $ARGV[0] // '321234472'; my $store_id = $ARGV[1] // '143441-1'; # Create HTTP user agent my $browser = LWP::UserAgent->new(agent => AGENT_NAME); $browser->default_header(STORE_HEADER, $store_id); # Create XML parser object and XPath context my $libxml = XML::LibXML->new(); my $xpath = XML::LibXML::XPathContext->new(); $xpath->registerNs(itms => ITMS_NS); # Format URL using template and application ID and load content my $response = $browser->get(sprintf(URL_TEMPLATE, $app_id)); die $response->status_line unless ($response->is_success); # Parse the XML document my $document = $libxml->parse_string($response->decoded_content); # Extract application description from the XML document my ($desc) = $xpath->findnodes(DESC_PATH, $document); die 'No description found' unless (defined($desc)); # Print the text contained in the extracted tag say $desc->textContent;
+3 replies
+2 replies
LibXMLBeispiel
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
