質問編集履歴

2

がお

2017/08/06 11:08

投稿

hatsu
hatsu

score1783

test CHANGED
File without changes
test CHANGED
@@ -259,3 +259,5 @@
259
259
  </html>
260
260
 
261
261
  ```
262
+
263
+ ![イメージ説明](5baaf4283b015bb1b3f1fac709cafbd0.png)

1

解決しました。

2017/08/06 11:08

投稿

hatsu
hatsu

score1783

test CHANGED
File without changes
test CHANGED
@@ -169,3 +169,93 @@
169
169
  心当たりある方、わかる方是非ともご教授いただけますと大変嬉しいです。
170
170
 
171
171
  どうかよろしくお願いします。
172
+
173
+
174
+
175
+ ####追記(解決しました)
176
+
177
+ asahina1979様のご提案によりcurlを使って解決いたしました。
178
+
179
+ 今後ご覧になられる方の一つの方法として解決したコードを載せておきます。
180
+
181
+
182
+
183
+ ```php
184
+
185
+ <!DOCTYPE html>
186
+
187
+ <html lang="ja">
188
+
189
+ <head>
190
+
191
+ <meta charset="UTF-8">
192
+
193
+ <title></title>
194
+
195
+ </head>
196
+
197
+ <body>
198
+
199
+ <p>将棋ウォーズのツイートを読み込んでいくよ</p>
200
+
201
+ <?php
202
+
203
+ $url = "http://hoikids.sakura.ne.jp/allwarstw_desplay/index.php";
204
+
205
+ $ch = curl_init(); // はじめ
206
+
207
+
208
+
209
+ //オプション
210
+
211
+ curl_setopt($ch, CURLOPT_URL, $url);
212
+
213
+ curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
214
+
215
+ $tw_kifu = curl_exec($ch);
216
+
217
+ $pattern = "/https:\/\/t.co\/[a-zA-Z0-9]{10}/";
218
+
219
+ // while( ! feof( $fp ) ){
220
+
221
+ // $tw_kifu = fread( $fp, filesize($filename));
222
+
223
+ preg_match_all($pattern, $tw_kifu , $matches);
224
+
225
+ foreach($matches[0] as $value){
226
+
227
+ $twkifu_url = get_headers($value, true);
228
+
229
+ $wars_url = $twkifu_url["location"];
230
+
231
+ if(strpos($wars_url,'kif-pona.heroz.jp') !== false){
232
+
233
+ if($wars_url == $pre_wars_url){
234
+
235
+ continue;
236
+
237
+ };
238
+
239
+ file_put_contents('twkifu_url.txt', $wars_url."<br>"."\n", FILE_APPEND);
240
+
241
+ echo $wars_url."<br>";
242
+
243
+ $pre_wars_url = $wars_url;
244
+
245
+ }
246
+
247
+ }
248
+
249
+ // }
250
+
251
+ // var_dump($html);
252
+
253
+ curl_close($ch); //終了
254
+
255
+ ?>
256
+
257
+ </body>
258
+
259
+ </html>
260
+
261
+ ```