Perl script problema (webszerverröl futtatva!) - iTunes lekerdezés
Nem tusom, jo helyre irok e, nem talaltam perllel foglalkozo forumot itt.
Szoval az a problemam, hogy van itt egy perl script, amit en barkacsoltam össze neten talalhato scriptekböl. Müködik is valamennyire, de nem igazan.
Amit meg akarok oldani, hogy az Apple XML-jet kiolvasva egy, a linkben meghatarozott ID alapjan egy applikacio leirasat kiolvassam es megjelenitsem.
A script müködik is, csak a baj az, hogy a leiras elsö sorat jeleniti csak meg. Amint a kodban befigyel egy <br> tag (es azt hiszem ilyenkor egy \n is befigyel) akkor a tovabbi reszet mar nem jeleniti meg.
Tudna valaki segitseget adni, hogyan lehetne ezt megoldani? A scriptet csak webszerverröl tudom futtatni es nem tudok modulokat telepiteni! Azonkivül nem vagyok programozo, a perlhez pedig csont hülye vagyok. Tehat valami konkret megoldas kellene, nem csak tippek es tanacsok amolyan "talan probald meg umbuldázni a dzsámburit" :-P
Szoval lent a script, amit lehivhattok az iphoneapp-promocodes.com/cgi-bin/roller3.pl?id=321234472 link segitsegevel, illetve a teljes XML-t (apple oldalrol) megnezhetitek az oldal forraskodja segitsegevel ezen a linken: iphoneapp-promocodes.com/cgi-bin/roller2.pl?id=321234472
Ebböl ez a resz kellene:
szoval itt a script:
e
Elöre is köszi a segitseget!
■ Szoval az a problemam, hogy van itt egy perl script, amit en barkacsoltam össze neten talalhato scriptekböl. Müködik is valamennyire, de nem igazan.
Amit meg akarok oldani, hogy az Apple XML-jet kiolvasva egy, a linkben meghatarozott ID alapjan egy applikacio leirasat kiolvassam es megjelenitsem.
A script müködik is, csak a baj az, hogy a leiras elsö sorat jeleniti csak meg. Amint a kodban befigyel egy <br> tag (es azt hiszem ilyenkor egy \n is befigyel) akkor a tovabbi reszet mar nem jeleniti meg.
Tudna valaki segitseget adni, hogyan lehetne ezt megoldani? A scriptet csak webszerverröl tudom futtatni es nem tudok modulokat telepiteni! Azonkivül nem vagyok programozo, a perlhez pedig csont hülye vagyok. Tehat valami konkret megoldas kellene, nem csak tippek es tanacsok amolyan "talan probald meg umbuldázni a dzsámburit" :-P
Szoval lent a script, amit lehivhattok az iphoneapp-promocodes.com/cgi-bin/roller3.pl?id=321234472 link segitsegevel, illetve a teljes XML-t (apple oldalrol) megnezhetitek az oldal forraskodja segitsegevel ezen a linken: iphoneapp-promocodes.com/cgi-bin/roller2.pl?id=321234472
Ebböl ez a resz kellene:
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.
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
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
szoval itt a script:
#! /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";
}
}
# 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";
}
}
e
Elöre is köszi a segitseget!
