Day: February 15, 2024

---

HOUSING VOUCHER 中、

REMOTE QBO secure

• JinuAcademy.com/in/01-BookkeeperJohn_in (10/60 eventually)
• – 태권도 1 페이지

웹 毎年、月+$1,000 유지 달성 (100개 웹 달성)

• JinuAcademy.com/kr/02-CsamiGroup_kr
• JinuAcademy.com/us/02-CsamiGroup_us
• – 태권도 1 페이지

---

THE CPA-ship

• JinuAcademy.com/kr/03-MyCPAMyTAX_kr
• – Foothill Accounting

{Korean}1.5Generation(s).US

• JinuAcademy.com/kr/04-1point5G_kr

THE MSW-ship

• JinuAcademy.com/kr/05-cradle2grave_kr
• – Social Work BA

---

{Korea}.JinuAcademy.org

• JinuAcademy.com/{mx}/06-jinuacademy_{mx}
• – Spanish BA
• – YouTube Regularly

---

#!/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.

---

$20,000/mo. maintain

---

{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

---

THE CPA-ship / THE MSW-ship

{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”

---

Korean / English / Japanese / Spanish / Portuguese

• 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 은퇴 I. @AK HOUSE w/o 재산세:

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

---

2034~ :

• 수학 교재 편찬
• {Hispanics} 영어 발음 교정
• – Rasmuson / Noel Wien – ILLiad
• – Barnes & Noble
• – Alibris – The UPS Store – eBooks, 100GB into JinuAcademy.com 50GB

---

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

---

JinuAcademy.com FINAL version 2052~

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

---