Redian新闻
>
这个fire phone该刷哪个固件啊
avatar
这个fire phone该刷哪个固件啊# PDA - 掌中宝
d*g
1
一个perl的很简单的问题,就是从msn网页中提取信息, 我从其他网站比如yahoo都没
有问题,试过很多次了, 但msn网站的信息就无法读取, 是不是他们的换行键和普通
的不一样?
以下是我的代码
#!/usr/bin/perl
#use strict;
use warnings;
use LWP::Simple;
my $url="http://investing.money.msn.com/investments/equity-options?symbol=US:JCP&optionsdate=11/22/2014";
my $page=get($url);
$page =~ /symbol=126.2.JCP4KMC010000">s+(.*)s+/;
print "yesn";
print "option : $1n";

------------------------------------------------
读取的网址如下:
http://investing.money.msn.com/investments/equity-options?symbo
谢谢
avatar
a*s
2
查了一下,delta biz gold主副都齐活了,本来即将关闭的。其他卡有没呢?谢谢啦
30 off 150
avatar
P*B
3
记得不要太贪,不要超过60%。
avatar
p*e
4
去年夏天买了一个白色的crossboady purse。
没用几次,边边已经很明显的脏了。
大家都是怎么打理的?
多谢
avatar
p*g
5
avatar
p*m
6
Fire Phone Software Updates
Fire phone software updates automatically download and install on your Fire
phone when connected wirelessly. You can also manually download the software
to your computer and transfer it to your device with a USB cable.
Fire phone (AT&T): Fire OS 4.6.4 (464000220)
Fire phone (Unlocked GSM): Fire OS 4.6.3 (463001620)
http://www.ebay.com/itm/171855373654?_trksid=p2060353.m2749.l26
或者有更好的
avatar
y*1
7
脚本是不是少了很多斜杠啊?
像是\s+或是\n这种都没有啊。
还是我理解有错误?
输出这样总感觉怪怪的,要拿到怎样的信息才对?
yes
126.2.JCP4KMC010000
avatar
a*x
8
继续没人拼对哈

【在 a*****s 的大作中提到】
: 查了一下,delta biz gold主副都齐活了,本来即将关闭的。其他卡有没呢?谢谢啦
: 30 off 150

avatar
C*C
9
关键是大家可能也不知道。。。
你的Purse是什么质料的?如果是皮的,应该有专门的清洁产品吧。。去店里买包的柜
台问问???

【在 p*****e 的大作中提到】
: 去年夏天买了一个白色的crossboady purse。
: 没用几次,边边已经很明显的脏了。
: 大家都是怎么打理的?
: 多谢

avatar
l*t
10
椰子果是什么
avatar
p*m
11
(AT&T): Fire OS 4.6.4
好像是att的
这个要root吗?
avatar
d*g
12
贴过来之后很多斜杠被吃掉了, 我没仔细观察,现在用、代表斜杠。 您做到了吗?您
的输出结果是应该对的,
怎么改的呢?谢谢
刚才实验经验成功了, 不管怎样,包子给您
#!/usr/bin/perl
#use strict;
use warnings;
use LWP::Simple;
my $url="http://investing.money.msn.com/investments/equity-options?symbol=US:JCP&optionsdate=11/22/2014";
my $page=get($url);
$page =~ /symbol=126.2.JCP4KMC010000">、s+(.*)、s+/;
print "yes、n";
print "option : $、n";


【在 y*****1 的大作中提到】
: 脚本是不是少了很多斜杠啊?
: 像是\s+或是\n这种都没有啊。
: 还是我理解有错误?
: 输出这样总感觉怪怪的,要拿到怎样的信息才对?
: yes
: 126.2.JCP4KMC010000

avatar
a*s
13
手快啦,lowes,哈哈

【在 a***x 的大作中提到】
: 继续没人拼对哈
avatar
p*e
14
晕,多谢MM提醒。
我都忘了说质材了
是皮质的

【在 C*******C 的大作中提到】
: 关键是大家可能也不知道。。。
: 你的Purse是什么质料的?如果是皮的,应该有专门的清洁产品吧。。去店里买包的柜
: 台问问???

avatar
H*g
15
avatar
t*i
17
lz的code没改, 就把、还原成\
运行结果
yes
option : 126.2.JCP4KMC010000
avatar
y*i
18
lowe's
hehe

【在 a*****s 的大作中提到】
: 手快啦,lowes,哈哈
avatar
C*C
19
其实我觉得稍微脏点没啥。。。东西就是来用的,用了就会脏。。。只要不是太脏。。。
最近背新包, 我老往地上扔, 就是为了看着旧点。。太新的,别扭。。。呵呵

【在 p*****e 的大作中提到】
: 晕,多谢MM提醒。
: 我都忘了说质材了
: 是皮质的

avatar
f*n
20
勺子头

【在 l****t 的大作中提到】
: 椰子果是什么
avatar
p*m
21

your file is out of date.
3) Google Play Services 7.8.99 (2134222-036) - Updated
4) Google Play Store 5.8.8 - Updated

【在 e*****0 的大作中提到】
: 先刷這個:Fire phone (Unlocked GSM): Fire OS 4.6.3 (463001620)
: 然後裝Google Play/Service: http://fixfire.blogspot.com
: 若要刷custom rom, 目前有CM11 and SlimKat, 但要先root與裝Safestrap...
: Known bug: Camera, Mute, NFC
: 可以來這看: http://forum.xda-developers.com/fire-phone

avatar
d*g
22
昨天一直运行不成功,不知道为什么,也给您一个包子,多谢
#!/usr/bin/perl
#use strict;
use warnings;
use LWP::Simple;
my $url="http://investing.money.msn.com/investments/institutional-ownership?symbol=JCP";
my $page=get($url);
$page =~ /Institutional Ownership (%)\s+.*\s+.*\s+.*(.*)\s+/;
print "yes\n\n";
print "Institutional Ownership (%) $1\n";

【在 t****i 的大作中提到】
: lz的code没改, 就把、还原成\
: 运行结果
: yes
: option : 126.2.JCP4KMC010000

avatar
s*k
23
我的情况
(1) Biz卡都有
(2)开卡年限较长的副卡(OBC、SPG)。感觉是跟副卡持有者的SSN绑定了
avatar
I*e
24
去purseforum上问问看,你的是什么牌子的包?难道专卖店没有专门清理的吗?

【在 p*****e 的大作中提到】
: 去年夏天买了一个白色的crossboady purse。
: 没用几次,边边已经很明显的脏了。
: 大家都是怎么打理的?
: 多谢

avatar
C*l
25
我的怎么一直显示:" validating update file ",很久了, 至少十分钟了. I put the
file 463001620 under the directory of SD card. Is it right?
avatar
y*1
26
不用改,就是斜杠那个弄好后直接运行就能出结果。
avatar
a*s
27
这么说着我去查一下副卡吧
od有个20 off 100今天

【在 s******k 的大作中提到】
: 我的情况
: (1) Biz卡都有
: (2)开卡年限较长的副卡(OBC、SPG)。感觉是跟副卡持有者的SSN绑定了

avatar
d*g
28
我现在确定msn的代码肯定有一个特殊的换行键, 换行之后还有一个tab, 因为我获取
之后在notepad和excel中显示的不同,-3.61% 之后没有换行是因为我没有截取到段尾
,理论上说\s+应该包含\n和\t了吧。 如图所示, 大牛给看看怎么回事
代码如下:
open (my $O,">c://。。。。。/out_JCP_OPTION.txt ") or die "Couldn't open: $!
";
my $ticker = "JCP";
my $url="http://investing.money.msn.com/investments/equity-options?symbol=US:$ticker&optionsdate=11/22/2014";
my $page=get($url);
$page =~ /symbol=126.2.JCP4KMC010000">\s+.*\s+.*\s+.*\s+.*\s+(.*)\s+.*\s+.*
\s+.*\s+.*\s+.*\s+.*>(.*)<.>)\s+.*\s+.*\s+(.*)\s+.*\s+.*\s+(.*)\s+.*\s+.*\s+.*\s+.*\s+(.*)\s+/;
print "yes\n";
print "$1\t$2\t$3\t$4\t$5\t$6\t$7\t$8\n";
print $O "$1\t$2\t$3\t$4\t$5\t$6\t$7\t$8\n"

【在 y*****1 的大作中提到】
: 不用改,就是斜杠那个弄好后直接运行就能出结果。
avatar
y*1
29
这是因为你那些有信息的数字后面的换行都只是\r。
在windows里头默认\r\n才是换行符。所以一般文本编辑器像是notepad在你这个只有\r
的情况下就看不到换行(但是wordpad可以)。
没详细看脚本,这边如果只是指标不治本的话,手动用=~s取代回来就好了。
说起来也真奇怪,\s理论上也应该能匹配\r才对,
但是刚才试了下,发现用Active Perl \s还真不匹配\r,但似乎能匹配\r\n。
所以你那个(.*)\s+的\s+匹配不了1.6\r\r\n后面那些\r\r\n,只能匹配\r\n,
所以最后$1匹配到的是1.6\r,最后留个\r下来。
avatar
d*g
30
多谢多谢, 果然解决了我的问题, 我在您邮箱里发了另一个问题,多谢啦,有包子
相关阅读
logo
联系我们隐私协议©2024 redian.news
Redian新闻
Redian.news刊载任何文章,不代表同意其说法或描述,仅为提供更多信息,也不构成任何建议。文章信息的合法性及真实性由其作者负责,与Redian.news及其运营公司无关。欢迎投稿,如发现稿件侵权,或作者不愿在本网发表文章,请版权拥有者通知本网处理。