KoreaDaily Yellowpage Mechanize

#!/usr/bin/perl
# This line indicates that this script should be executed using Perl, and it specifies the location of the Perl interpreter (`perl`) on the system.

use strict;
use warnings;
# These lines enable strict pragma and warnings, which enforce stricter syntax rules and provide helpful diagnostic messages, respectively, helping to write cleaner and more robust code.

use Encode;  # To handle encoding issues
use WWW::Mechanize;
# These lines import the `Encode` module, which is used to handle encoding issues, and the `WWW::Mechanize` module, which provides a convenient way to interact with websites programmatically.

my $filename = 'KoreaDaily_URL.txt';
# This line defines a variable `$filename` and assigns the name of the text file containing the URLs (`KoreaDaily_URL.txt`) to it.

my $mech = WWW::Mechanize->new();
# This line creates a new instance of the `WWW::Mechanize` object, which will be used to interact with web pages.

open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
# This line opens the text file specified by `$filename` for reading (`'<') and associates a file handle `$fh` with it. If the file cannot be opened, it prints an error message and terminates the script.

my $page_num = 1;
# This line initializes a variable `$page_num` to `1`, which will be used to keep track of the page number while saving HTML files.

while (my $url = <$fh>) {
# This line starts a `while` loop that iterates over each line of the text file associated with the file handle `$fh`. Each line is assigned to the variable `$url`.

    chomp $url;  # Remove newline character
    # This line removes any trailing newline character from the URL read from the file.

    $mech->get($url);
    # This line instructs the Mechanize object to visit the URL specified by `$url` and retrieve its content.

    my $content = $mech->content();
    # This line stores the content of the webpage visited by the Mechanize object in the variable `$content`.

    my $filename = sprintf("%d.html", $page_num);
    # This line constructs a filename for the HTML file to be saved. It uses `sprintf` to format the filename with the current page number.

    open(my $fh_out, '>:encoding(EUC-KR)', $filename) or die "Could not open file '$filename' for writing: $!";
    # This line opens a new file for writing with the filename specified by `$filename`. It also specifies the encoding as EUC-KR to handle Korean characters. If the file cannot be opened, it prints an error message and terminates the script.

    print $fh_out $content;
    # This line writes the content of the webpage (`$content`) to the opened file handle `$fh_out`.

    close $fh_out;
    # This line closes the file handle `$fh_out` after writing the content to the file.

    my @pagination_links = $mech->find_all_links(url_regex => qr/page=/i);
    # This line finds all pagination links on the current webpage using a regular expression that matches URLs containing "page=". The links are stored in an array `@pagination_links`.

    for my $link (@pagination_links) {
    # This line starts a `for` loop that iterates over each pagination link found on the webpage.

        $mech->get($link->url);
        # This line instructs the Mechanize object to click on the pagination link (`$link`) to navigate to the next page.

        my $content = $mech->content();
        # This line retrieves the content of the newly navigated page.

        $page_num++;
        # This line increments the `$page_num` variable to keep track of the page number for the next HTML file.

        my $filename = sprintf("%d.html", $page_num);
        # This line constructs a new filename for the HTML file to be saved, corresponding to the next page number.

        open(my $fh_out, '>:encoding(EUC-KR)', $filename) or die "Could not open file '$filename' for writing: $!";
        # This line opens a new file for writing with the new filename and EUC-KR encoding.

        print $fh_out $content;
        # This line writes the content of the newly navigated page to the opened file handle.

        close $fh_out;
        # This line closes the file handle after writing the content to it.

    }

    $page_num++;
    # This line increments the `$page_num` variable to keep track of the page number for the next iteration of the loop.

}

close($fh);
# This line closes the file handle associated with the input file after processing all URLs.

daily concentration



{Indian}.BookkeeperJohn.com (10/60)

  • JinuAcademy.com/in/01-bookkeeperjohn_in
  • JinuAcademy.com/ph/01-bookkeeperjohn_ph
  • QBO APP in C# for BookkeeperJohn

{KoreanAmerican}.CsamiGroup.com (+$1,000/mo./yr.)

  • JinuAcademy.com/us/02-CsamiGroup_us

{John}.MyCPAMyTAX.com (EA CPA MSW)

  • JinuAcademy.com/kr/03-mycpamytax_kr

{Korean}1.5Generations.US

  • JinuAcademy.com/kr/04-1point5g_kr
  • JinuAcademy.com/kr/05-cradle2grave_kr

{Korea}.JinuAcademy.org

  • JinuAcademy.com/kr/06-jinuacademy_kr
  • daily YouTube uploading
  • “Spectrogram Analysis of ESL Pronunciation”

  • English BA MA MFA / TESOL / (Applied) Linguistics BA MA / M.Ed Credential
  • Japanese BA
  • Spanish BA MA, SLAT PhD
  • Portuguese self study, SLAT PhD

~2034 1.5Generations.US CPA MSW M.Ed Credential MS


  • 1.5Generation(s).US
  • – EA Quickbooks Certificate
  • – CPA
  • – Social Work BA
  • – Spanish BA
  • – MS
  • – M.Ed Credential
  • – MSW


REMOTE 확보:

  • {Indian}.BookkeeperJohn.com (10/60)
  • – QBO APP in C# for BookkeeperJohn
  • THE QBO-ship
  • THE CPA-ship

CsamiGroup.com Addon Domains:

  • {Korea}.CsamiGroup.com
  • – SUN MON, WED THU: 03:30PM~05:30PM
  • {KoreanAmerican}.CsamiGroup.com 웹 (연변)
  • – 매년 월+$1K 유지 달성
  • THE DIVI-ship

The CPA-ship / The MSW-ship:

  • MyCPAMyTAX.com
  • 1.5Generation(s).US
  • cradle2grave_kr
  • THE MSW-ship

  • {Korea}.JinuAcademy.org
  • – Mathpix OCR
  • {Hispanics}.JinuAcademy.org
  • THE M.Ed Credential PhD-ship

2029~2044~2052~


UAF (stipend 生活 中、) 은퇴 III./I.II.


2044~2052 CalStateLA/Arizona

2052~

  • English BA MFA
  • SLAT PhD, Arizona

MIS.AbramJMeister.com


  • Pay Start Date
  • Monthly Pay Date
  • Charge Amount
  • Charge Term
  • – Monthly by Merchant Account
  • – Monthly by Check
  • – Bimonthly by Check
  • – Annually by Check
  • – Annually by Merchant Account
  • Pay Processed By
  • – PayPal
  • – Stripe
  • – Wells Fargo Mobile Check Deposit
  • – WooPayments
  • Pay ID Recorded
  • Item Sold
  • – Web
  • – Yoast
  • Hosted By
  • – A Small Orange VPS Addon Domain
  • Backed Up By
  • – Namecheap Multisite
  • MySQL No.
  • Domain Name
  • Domain Registered By
  • – Google Cloud
  • – Google Domains
  • – SquareSpace.com
  • Duplicator to Dropbox Date
  • Mailgun Ready Date

expenses revenues


  • PayPal
  • Stripe
  • Wells Fargo Mobile Deposit
  • WooPayments
  • Concerto, PayPal
  • – MIS.AbramJMeister.com complete record

  • Key Checking direct deposit from Wells Fargo Business Checking

Asset:

  • QBO@CsamiGroup.com

IRS:

  • TurboTax Business

~2034 은퇴 I.~ CPA M.Ed Credential MS MSW


{Indian}.BookkeeperJohn.com (10/60):

  • QBO APP in C# for BookkeeperJohn

1.5Generation(s).US:

  • (MyCPAMyTAX.com THE CPA-ship
  • cradle2grave_kr THE MSW-ship
  • FreshnDeliver.com
  • 3quotes1request.com

{..}.JinuAcademy.org(“미주장학재단”):

  • M.Ed Credential (online)
  • – Mathematics MS (stipend)
  • – Statistics MS (stipend)
  • – Foothill (CPA)(online)
  • – Social Work BA MSW (free-online)
  • – Spanish BA (online)


~2039 Mathematics (Education) PhD, UAF (stipend)

  • JinuAcademy.org PhD THESIS

~2044 Interdisciplinary Studies PhD, UAF (stipend)

  • Spectrogram Analysis of ESL Pronunciation

2044~2052 Statistics & Data Science PhD, Arizona (stipend)

  • Spectrogram Analysis of ESL Pronunciation
  • – English MA MFA (가을학기)
  • – Spanish MA (봄학기)
  • – Art BA (봄학기)
  • – CS BS (online) MS (봄학기)
  • – Communication BA MA (free-online,가을)
  • – Computational Linguistics Master’s (online,가을학기)


TASK – 2024 02 14

Holiday Morning Coffee

Wood Center, cup noodle

RED – Barnes & Noble

BROWN – ADA card pick up

BROWN – Alaska Barbershop

BROWN – Walmart

  • 계란
  • Molasses
  • Mackerel Can

BLUE – 7 Gables

~2029 은퇴 III./II.I.



2025

2026

2027

2028


  • 웹 >100개 달성 및 毎年、月+$1,000 추가 유지 달성
  • REMOTE BookkeeperJohn (10/60)
  • 진우, “미주 장학 재단,” approach version 개시

  • Foothill CPA
  • Social Work BA, UAF
  • Spanish BA, Oregon State


TASK – 2024 02 13

Okkoreaexpress.com – mailgun

Okkoreaexpress.csamigroup.com – remove / remove mysql

Okkoreaexpress.com – duplicator Dropbox backup

MooHanMoving.com – duplicator Dropbox backup check

MooHanMoving.com – mailgun date in MIS.

QBO@CsamiGroup.com export request

econ discussion complete

ba 330 quiz complete

ba f462 quiz complete

Adam email 웹 오퍼

태권도 – a/r