{"id":3589,"date":"2024-02-09T23:26:34","date_gmt":"2024-02-10T08:26:34","guid":{"rendered":"https:\/\/crm270s.abramjmeister.com\/?p=3589"},"modified":"2024-02-09T23:26:34","modified_gmt":"2024-02-10T08:26:34","slug":"koreadaily-yellowpage-each-business-url","status":"publish","type":"post","link":"https:\/\/crm270s.mycpamytax.com\/?p=3589","title":{"rendered":"KoreaDaily Yellowpage &#8211; each business URL"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">download as txt file using Firefox and use below code to extract each business URL:<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>#!\/usr\/bin\/perl\n\nuse strict;\nuse warnings;\n\n# Define the output file name\nmy $output_file = 'KoreaDaily.txt';\n\n# Open the output file for writing\nopen(my $fh_out, '>', $output_file) or die \"Could not open file '$output_file' for writing: $!\";\n\n# Loop through files Atlanta_01.txt to Atlanta_13.txt\nfor my $file_number (1..14) {\n    my $input_file = \"Atlanta_\" . sprintf(\"%02d\", $file_number) . \".txt\";\n    \n    # Open the current input file for reading\n    open(my $fh_in, '&lt;', $input_file) or die \"Could not open file '$input_file': $!\";\n\n    # Iterate through each line of the current input file\n    while (my $line = &lt;$fh_in>) {\n        # Check if the line contains 'cat_code='\n        if ($line =~ \/cat_code=\/) {\n            # Write the line to the output file\n            print $fh_out $line;\n        }\n    }\n\n    # Close the current input file handle\n    close($fh_in);\n}\n\n# Close the output file handle\nclose($fh_out);\n\nprint \"Extraction completed. Results saved in '$output_file'.\\n\";\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>download as txt file using Firefox and use below code to extract each business URL:<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_et_pb_use_builder":"","_et_pb_old_content":"","_et_gb_content_width":"","footnotes":""},"categories":[26],"tags":[],"class_list":["post-3589","post","type-post","status-publish","format-standard","hentry","category-codes"],"_links":{"self":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/posts\/3589","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3589"}],"version-history":[{"count":0,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=\/wp\/v2\/posts\/3589\/revisions"}],"wp:attachment":[{"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3589"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3589"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/crm270s.mycpamytax.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3589"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}