Net :: GDrive.

Google µå¶óÀ̺ê API ÀÎÅÍÆäÀ̽º
Áö±Ý ´Ù¿î·Îµå

Net :: GDrive. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î