Net :: GDrive. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Brian Medley
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bpmedley/
Net :: GDrive. ű×
Net :: GDrive. ¼³¸í
net :: grive´Â Google µå¶óÀ̺ê API°¡ OAuth¸¦ ±â¹ÝÀ¸·ÎÇÕ´Ï´Ù. oauth.developerÀÇ comtensei´Â °¡´ÉÇÑ ÇÑ ¸¹ÀÌ Ãß»óÈÇÏ·Á°í ½ÃµµÇϹǷΠ±×°Í¿¡ ´ëÇØ ³Ê¹« ¸¹ÀÌ ¾Ë ÇÊ¿ä°¡ ¾ø¾î¾ßÇÕ´Ï´Ù. kudos to net :: dropbox :: api.synopsisthis´Â ÀÛµ¿ ¹æ½ÄÀÔ´Ï´Ù. net :: grive; ³» $ gdrive = net :: gdrive-> new (); MY $ login_link = $ GDrive-> login_link (); ... ½Ã°£ÀÌ Áö³ª°¡°í ·Î±×ÀÎ ¸µÅ©°¡ Ŭ¸¯µË´Ï´Ù ... My $ gdrive = net :: gdrive-> new (); # $ ÄÚµå´Â CGI ¶Ç´Â Somesuch¿¡¼ Á¦°øµË´Ï´Ù. GoogleÀº $ GDrive-> ÅäÅ« ($ ÄÚµå)¿¡ Á¦°øÇÕ´Ï´Ù. ³» $ files = $ gdrive-> ÆÄÀÏ (); foreach my $ f (@ {$ files -> {items}}) {($ f -> {disollationurl}) {Open (My $ FH, ">", "file.dl") ¶Ç´Â ´ÙÀÌ ( "ÆÄÀÏ) DL : $! \ n "); Àμâ ($ FH $ GDrive-> DownloadURL ($ f)); ´Ý±â ($ FH); }} Á¦Ç°ÀÇ È¨ÆäÀÌÁö
Net :: GDrive. °ü·Ã ¼ÒÇÁÆ®¿þ¾î